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ABSTRACT 


This  thesis  contains  an  implementation  of  a  material 
database  system  -for  the  Hellenic  Armed  Forces.   The  Hellenic 
Armed  Forces  Formations  currently  manage  all  material  data 
manually.   The  author  proposes  the  switching  -from  manual 
processing  to  automated  processing  in  an  Ordnance  Battalion 
of  an  Infantry  Division  using  dBASE  II  with  an  IBM  personal 
computer.   Particular  emphasis  is  placed  on: 

1.  The  reasons  and  the  system  tasks. 

2.  The  conversion  of  the  old  manual  system  to  an  automated 
system. 

3.  The  implementation  of  the  design. 
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I.   GENERAL   DATABASE   CONCEPTS 


A.   INTRODUCTION 

A  database  is  a  shared  collection  o-f  inter — related  data 
designed  to  meet  the  varied  information  needs  o-f  an 
organization.   In  the   early   1970s,  database  processing  was 
considered  an  esoteric  subject,  of  interest  only  to  the 
largest  corporations  with  the  largest  computers.   Today 
database  processing  is  becoming  an  in-formation  systems 
standard.   In  some  computers  all  data  is  organized  into  a 
database,  while  -files,  as  individual  entities,  do  not  exist. 

The  change  to  database  processing  has  occurred  largely 
because  o-f  economics.   Database  processing  favors  people  at 
the  expense  of  computers.   Programmers  and  other  users  of 
data  can  be  more  efficient  and  effective  using  database 
processing,    accomplishing  more  within  a  fixed  amount  of 
time.   On  the  other  hand,  database  processing  requires  more 
computer  resources  than  traditional  file  processing  does. 

In  the  last  ten  years  the  cost  of  labor  has  been 
increasing  steadily.   Even  worse,  management  has  encountered 
great  difficulty  in  acquiring  and  keeping  competent  systems 
development  personnel.   Meanwhile,  the  cost  of  computers  has 
decreased  dramatically.   Simply  stated,  people  have  become 
more  expensive  while  machines  have  become  cheaper.   In 
parallel,  database  processing  has  offered  the  potential  for 
trading  people  resources  for  machine  resources.   The  result 
has  been  a  substantial  increase  in  the  number  of  database 
applications.   By  all  standards,  these  trends  are    likely  to 
continue.   Conceivably,  files  as  independent  entities  might 
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disappear  entirely,   perhaps  in  another  ten  years  all 
commercial  data  processing  will  become  database  processing. 

1.  Traditional  File  Processing  Approach 

Database  technology  allows  an  organization's  data  to 
be  processed  as  an  integrated  whole.   It  reduces 
artificiality  imposed  by  individual  -files  -for  separate 
applications  and  permits  users  to  access  data  more  naturally. 
With  a  -file  processing  approach,  each  application  program 
maintains  its  own  files.   There  is  no  sharing  of  data  among 
different  application  programs. 

Consider  the  three  systems  shown  in  Figure  1.1. 
These  are  file  processing  systems,   they  are    predecessors  of 
database  systems.   With  file  processing,  each  file  is 
considered  to  exist  independently.   The  payroll  system  in 
Figure  1.1  processes  only  the  faculty  data  file,   the  class 
scheduling  system  processes  only  class  data,   and  the  grade 
posting  system  processes  only  student  data.   These  systems 
are  effective  in  that  they  produce  checks,  schedule  classes, 
and  record  grades.  CRef.l:  pp.  1—33 

2.  Database  Processing  Approach 

Suppose  it  is  necessary  to  know  the  salary  paid  to 
each  instructor  who  teaches  a  class  scheduled  by  the  class 
scheduling  system  in  Figure  1.1.   To  obtain  this  information, 
a  new  program  must  be  written  to  extract  data  from  both  the 
faculty  and  the  class  data  files.   Unfortunately,  there  is  no 
guarantee  that  these  files  are    compatible.   The  faculty  data 
file  might  be  written  in  COBOL  binary  format,  whereas  an 
incompatible  PL/I  record  format  might  be  used  for  the  class 
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data  file.   If  so,  one  file  must  be  converted  to  the  format 
of  the  other,  and  then  the  extraction  program  written, 
tested,  and  run.   This  process  will  take  time.   In  some 
cases,  conversion  entails  so  much  effort  to  eliminate 
incompatibility  that  it  simply  cannot  be  done  within  a 
reasonable  cost. 

Figure  1.2  shows  a  database  processing  system.   The 
files  in  Figure  1.1  have  been  integrated  into  a  database  that 
is  processed  indirectly  by  the  application  programs.   The 
payroll,  class  scheduling,  and  grade  posting  systems  can 
perform  their  old  functions,  but  the  programs  call  upon  the 
database  management  system  (DBMS)  to  access  the  database. 
The  DBMS  is  a  complex  and  usually  large  program  that  acts  as 
a  data  librarian.  It  stares  and  retrieves  data.   In  order  to 
perform  its  functions,  the  DBMS  stores  not  only  data,  but 
also  a  description  of  the  format  of  the  data. 

The  faculty,  class,  and  student  data  in  Figure  1.2 
can  be  processed  as  an  integrated  whole.   Since  the  files 
have  been  created  by  the  DBMS,  all  of  the  data  is  compatible. 

Further,  the  DBMS  may  have  features  to  enhance  integrated 
processing.   For  example,  a  faculty  record  can  be  logically 
'tied  to'  several  class  records  to  represent  the  relationship 
between  teacher  and  class.   Thus  database  processing  is 
integrated  processing.  CRef.l:  p. 3D 
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Figure  1.2  :   A  Database  Processing  System  CRef.l:  p. 43. 
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3.   Comparison  of  Traditional  and  Database  Approaches 

The  table  below  shows  the  differences  between  the 
Tradition  -file  processing  approach  and  the  Database 
processing  approach,  comparing  the  characteristics  of  each 


Tradition  processing  approach 


Database  processing  approach 


Uncontrolled  Redundancy 

Each  application  has  its 
own  files,  i.e.  same 
information  could  be  repeated 
across  different  files. 

Inconsistent  data 

Because  of  redundancy,  data 
may  become  inconsistent,  e.g. 
if  there  is  a  change  in  any 
file,  say  instructor  pay, then | 
the  change  must  also  be  in 
all  other  files  that  contain 
this  information. 

Limited  data  sharing 

Since  every  application  has 
its  own  private  files,  there 
is  little  opportunity  to 
share  data  between 
application  program    files. 

Poor  enforcement  of  standards 

A  standard  in  data  formats 
is  very  hard  to  maintain  if 
each  application  program  has 
its  own  files. 

Excessive  program  maintenance 
Because  the  descriptions  of 

files,  records,  and  data 

fields  are    embedded  within 

individual  application 
i programs,  any  change  in  a 
idata  file  will  necessitate  a 
{change  in  the  program. 


Minimal  data  Redundancy 

Previously  separated  and 
redundant  data  files  are 
integrated  into  a  single, 
logical  structure. 

Consistent  data 

Because  the  redundancy  is 
controlled,  there  is  a  less 
chance  of  inconsistency. 


I 


Sharing  of  data 

Data  can  be  shared 
by  many  application  programs 
through  the  DBMS. 


Enforcements  of  standards 

Since  data  is  stored 
only  once,   maintaining  a 
standard  is  a  lot  easier. 


Reduced  program  maintenance 
Due  to  data  independence. 


CRef.  1:  pp. 3-83 
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4.   Components  of  a  Database  System 

A  database  system  is  a  collection  o-f  -five  components 
that  interact  to  satisfy  user  needs.   The  five  components  are 
hardware,  programs,  data,  people,  and  procedures. 

a.  Hardware 

Database  systems  do  not  require  any  special  type 
of  hardware.   Database  applications  often  require  more 
hardware,  more  main  memory,  a  faster  CPU,  and  more  direct 
access  storage. 

As  shown  in  Figure  1.3,  the  computer  processing 
the  application  program  sends  requests  for  service  and  data 
over  a  channel  to  the  database  machine.  The  machine 
processes  the  requests  and  sends  results,  data,  or  messages 
back  to  the  main  computer.  Thus  database  processing  can  be 
performed  simultaneously  with  applications  processing. 
LRe-f.  1:  pp.  8  &  93 

b.  Programs 

Several  types  of  programs  are    used  in  database 
processing  systems.   Figure  1.4  shows  the  approximate 
relationships  of  the  major  types.   Online  processing  requests 
or  transactions  Are    provided  by  users  at  terminals.   The 
requests  are    sent  to  the  processing  computer  over 
communications  lines.   The  requests  are  received  and  routed 
by  the  communications  control  program  (CCP) .  This  program  has 
several  important  functions.   It  provides  communications 
error  checking  and  correction,  it  coordinates  terminal 
activity,  it  routes  messages  to  the  correct  next  destination, 
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Figure  1.3:  Processing   with  Database  Machine  CRef.l:  p. 83 
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it  formats  messages  for  various  types  o-f  terminal  equipment, 
and  it  performs  other  communication— oriented  tasks.   The  CCP 
is  an  important  and  complex  program.   The  CCP  routes  online 
input  to  the  next  level  of  the  programs.   This  level  contains 
application  programs  <AP)  as  well  as  database  utilities.   The 
application  programs  satisfy  specific  needs  like  order  entry, 
inventory  accounting,  billing,  and  so  forth.   The  utility 
programs  are    provided  by  either  the  DBMS  or  the  hardware 
vendor.   These  programs  provide  a  wide  variety  of  services. 

DBMS  is  a  software  system  that  carries  out  all 
user's  requests  for  data.   The  request  may  be  an  update  or  a 
retrieval  operation.   The  final  type  of  program  involved  in 
database  processing  is  the  operating  system.   This  set  of 
programs  manages  the  computer's  resources.  CRef.l:  pp  9—11] 

c.   Data 

A  database  is  a  self -describing  collection  of 
intergated  files.   The  database  is  self -describing  because  it 
contains,  within  itself,  a  description  of  its  structure. 

According  to  standard  usage  in  the  computer 
industry,  bits  are    grouped  into  bytes  or  characters, 
characters  are    grouped  into  fields,  and  fields  are    grouped 
into  records.   A  collection  of  records  is  called  a  file.   It 
is  tempting  to  continue  this  abstraction  by  stating  that 
files  can  be  grouped  to  form  a  database,   which  is  more  than 
just  a  collection  of  files,  but  a  collection  of  integrated 
files.   Another  way  of  saying  this  is  that  a  database  is  a 
collection  of  files  and  the  relationships  among  records  in 
those  files. 

In  a  database  system  a  variety  of  forms,  or 
views, of  the  data  are    defined.   One  such  view  is  called  the 
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schema,  or  conceptual  view.   This  is  the  complete,  logical 
view  of  the  data. 

The  schema  describes  all  of  the  data  in  the 
database.   For  a  bank,  the  database  schema  might  include  the 
customer,  checking,  savings,  loan,  and  credit  records. 

It  would  be  undesirable  -from  a  control  standpoint 
to  allow  every  application  program  to  access  all  of  this 
data.   The  bank  would  not  want  the  checking  programs,  for 
example,  to  have  access  to  loan  data. 

To  restrict  access  to  the  database,  companies 
define  another  type  of  view  called  a  subschema,  or  external 
view.   The  subschema  defines  a  subset  of  the  schema  to  be 
seen  by  a  given  application  program  or  user. 

Figure  1.6  is  an  example  of  subschemas  for  a  Bank 
database.   A  program  that  invokes  the  checking  subschema  will 
see  only  customer  and  checking  records.   All  other  database 
records  will  be  invisible  to  that  program.   There  will  be 
more  than  one  subschema  and  subschemas  can  overlap. 

A  third  view  of  the  data  is  called  the  internal 
or  the  physical  view.   This  is  the  form  of  the  data  as  it 
appears  to  a  particular  processing  computer.   It  describes 
how  data  is  physically  arranged  and  how  it  is  allocated  to 
files.  CRef.l:  pp.  11-14D 
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Figure  1.5:   Composition  of  Bank  Database. CRef  .  1 :  p.  13] 


CUSTOMER 


CHECKING 


Checking 
Subschema 


CUSTOMER 


SAVINGS 


b.  Savings 
Subschema 


LOAN 


CUSTOMER 


CREDIT 


c .  Loan 

Subschema 


Figure  1.6:  Subschema  for  a  Bank  Database.  [Re-f .  1:  p.  14] 
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d.  People 

People  are  the  -fourth  component  o-f  a  business 
database  system.   These  consist  of  many  different  types: 

fl)   CI  ientele;   They  are  the  people  -for  whom  the  system  is 
developed.   The  clientele  o-f  a  payroll  system  are 
employees. 

(2)   Users:   They  are  the  people  who  employ  the  system  to 
satis-fy  a  particular  need. 

(3)  Operations  personnel:  They  run  the  computer  and 
associated  equipment. 

(4)  Systems  development  personnel:   They  design  and 
implement  the  database  system.   They  determine 
requirements,  specify  alternatives,  design  the  five 
components  of  the  system,  and  manage  systems 
implementation. 

(5)  Database  administration  (DBA)  personnel:   The  function 
of  the  DBA  staff  is  to  serve  as  a  protector  of  the 
database  and  as  a  focal  point  for  resolving  user's 
conflicts.   The  DBA  should  he  a  representative  of  the 
community  as  a  whole,  and  not  of  any  particular  user  or 
group  of  users. 

e.  Procedures 


Both  users  and  the  operations  staff  need 
documented  procedures  for  normal  conditions.   The  users  need 
to  know  how  to  sign  on  to  the  system,  how  to  use  the 
terminals,  how  to  provide  data,  and  so  forth.   They  also  need 
procedures  that  ensure  they  do  not  interfere  with  one 
another. 

Computer  operations  personnel  also  need 
procedures.   They  need  to  know  how  to  start  and  stop  the 
database  applications,  and  how  to  perform  backup.   Further, 
if  there  are  special  operating  instructions  such  as  for 
mounting  certain  disks  or  the  like,  these  instructions  need 
to  be  documented  as  standard  procedures.  CRef.l:  pp.l5-17D 

23 


B.   DATA   MODELS 

The  study  of  database  processing  involves  learning  the 
database  models.   In  this  section  the  data  models  are 
presented. 

A  model  is  a  representation  of  real— world  objects,  events 
and  their  associations.   A  data  model  is  an  abstract 
representation  of  the  data  about  entities,  events, 
activities,  and  their  associations. 

The  purposes  of  data  models  arez 

1.  To  represent  data. 

2.  To  be  understandable. 

1 .   Components  of  a  database  model 

Database  models  have  two  major  components.   The  data 
definition  language  (DDL)  is  a  vocabulary  for  defining  the 
structure  of  the  database.   The  DDL  must  include  terms  for 
defining  records,  fields,  keys,  and  relationships.   In 
addition,  the  DDL  should  provide  a  facility  for  expressing  a 
variety  of  user  views.   Ideally,  the  model  will  also  provide 
a  method  for  expressing  database  constraints.   The  purpose  of 
data  definition  components  in  a  database  model  are  to: 

a.  Describe  records. 

b.  Describe  fields. 

c.  Describe  relationships. 

d.  Identify  keys. 

e.  Express  user  views. 

f.  Express  constraints: 

(1)   Edit. 


(2)  Intrarecord. 

(3)  Intrerrecord. 

Data  manipulation  language  (DML)  is  the  second 
component  of  a  database  model.   The  DML  is  a  vocabulary  for 
describing  the  processing  of  the  database.   Facilities  are 
needed  to  retrieve  and  change  data  in  the  database.   Two 
types  o-f  DML  exist. 

Procedural  DML  is  a  language  -for  describing  actions 
to  be  performed  on  the  database.   Procedural  DML  obtains  a 
desired  result  by  specifying  operations  to  be  performed.   For 
procedural  DML,  facilities  are    needed  to  define  the  data  to 
be  operated  on  and  to  express  the  actions  to  be  taken.   Both 
data  items  and  relationships  can  be  accessed  or  modified. 
Also,  to  ensure  that  the  database  can  be  accurately  recovered 
in  the  case  of  failure,  commands  are  needed  to  define  logical 
transactions  and  to  eliminate  changes  in  case  of  a  program- 
detected  error. 

Nonprocedural  DML  is  a  language  for  describing  the 
data  that  is  wanted  without  describing  how  to  obtain  it.   The 
DBMS  is  given  the  job  of  determining  how  to  get  the  result. 
Nonprocedural  DML  is  descriptive,  not  prescriptive. 

2.   Hierarchical  Data  Model  (HDM) 


A  model  is  hierarchical  if  its  only  data  structure  is 
a  hierarchy  (tree) -   HDM  represents  data  as  a  set  of  nested 
one— to— many  (1:M>  and  one— to— one  (1:1)  relationships. 

One  obvious  problem  with  HDM  is  that  many-to— one  (M:l) 
relationship  is  not  supported,  thereby  producing  redundancy. 
Suppose  one  teacher  teaches  many  courses.  That  teacher's 
information  will  be  repeated  for  every  course  he  teaches.  The 
advantage  of  HDM's  is  that  they  are  familiar  structures. 
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A  hierarchical  database  consists  of  one  or  more  trees 
with  each  tree  consisting  of  an  hierarchy  of  records  as  shown 
in  Figure  1.7. 

VENDOR 


VEND# 

VNAME 

CITY 

PRODUCT 

PRODtt 

PNAME 

PRICE 

Figure  1.7:   Hierarchical  Diagram  For  Database. 

The  hierarchy  of  Figure  1.7  is  declared  as  follows: 
-   TREE  NAME  IS  VENDTREE 

RECORD   NAME   IS   VENDOR 

VENDtt  TYPE  IS  INTEGER 

VNAME  TYPE  IS  CHAR (20) 

CITY   TYPE  IS  CHAR (10) 
RECORD   NAME   IS   PRODUCT 

PARENT  IS  VENDOR 

PRQDtt  TYPE  IS  INTEGER 

PNAME  TYPE  IS  CHAR (30) 

PRICE  TYPE  IS  REAL 

The  parent/child  relationship  is  denoted  by  putting 
PARENT  IS   <record  name)  in  the  child  record  declaration. 

a.   Data  Retrieval 

The  basic  retrieval  command  is  GET  and  the 
general  format  is:    GET   LEFTMOST   < target  record  name) 

[WHERE  <condition>3 
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The  <condition>  has  the  following  -form: 

<record  name).  <f  ield  name)  <rel-op><value> 
where  <rel— op>  is  usually  a  binary  relational  operator.  The 
<record  name)  must  be  an  ancestor  of  <target  record  name). 
The  square  brackets  signify  the  optional  part. 

For  example,  referring  to  Figure  1-7,  we  want  the 
price  of  the  PRODUCT  whose  name  is  AAA  and  belongs  to  the  1st 
VENDOR. 

SET  LEFTMOST  PRODUCT 

WHERE  (VENDOR. VEND#  =  1) 
AND  (PRODUCT. PNAME  =  'AAA' 
PRINT  PRODUCT. PRICE 

(1)  Insertion.    Inserting  a  new  record  is  very 
simple.   First  put  the  values  in  the  template,  (Template  is  a 
kind  of  data.  Values  placed  in  the  template  will  be  copied  to 
the  database  by  STORE  command  and  copied  into  it  from  the 
database  by  the  GET  command)  and  then  execute  the  INSERT 
command,  which  has  the  same  format  as  the  SET  command.   To 
add  a  new  PRODUCT  'AAA'  to  the  1st  VENDOR,  we  write: 

PRODUCT. PNAME  =  'AAA' 
PRODUCT. PROD#  =  '100' 
INSERT  PRODUCT 

WHERE  VENDOR. VEND#  =  1 
So  the  format  of  insert  command  is: 

INSERT   <record  name) 

(2)  Deletion.   To  delete  a  record,  we  first  locate 
the  desired  record  by  using  the  BET  HOLD  command  and  then  we 
write  DELETE.  GET  HOLD  works  exactly  like  the  GET  command. 
The  GET  HOLD  will  make  sure  that  no  other  pointers  are 
pointing  to  the  descendant  of  the  record  to  be  deleted.   When 
a  record  is  deleted,  all  descendent  records  of  the  record 
will  also  be  deleted  automatically.   So  to  delete  the  2nd 
PRODUCT  of  the  4th  VENDOR,  we  would  simply  state: 
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GET  HOLD  LEFTMOST  PRODUCT 

WHERE  (VENDOR. VEND#  =  4) 

AND  (PRODUCT. PROD#  =  2) 
DELETE 

So  the  -format  of  delete  command  is: 
GET   HOLD  <record  name) 
DELETE 

(3)  Modification.  The  modification  operation  is 
similar  to  deletion.   To  modify  a  record  after  gaining 
exclusive  control  of  it,  we  first  change  the  data  values  in 
the  template  and  then  issue  the  command  REPLACE.   The 
following  will  replace  the  PRICE  of  the  7th  PRODUCT  to  *40. 

GET  HOLD  LEFTMOST  PRODUCT 
WHERE  PRODUCT. PROD*  =  7 

PRODUCT. PRICE  =  ' *40 ' 

REPLACE 
CRef.2:  pp. 30-323 

3.   Network  Data  Model  (CODASYL  DBTG) 


The  Network  Data  Model  (NDM)  represents  data  as  a  set 
of  record  types  and  pairwise  relationships  between  record 
types.   Relationships  that  involve  more  than  two  record  types 
are  not  directly  permitted.   NDM  does  not  allow  M:N  (Many  to 
Many)  relationships.   It  supports  the  use  of  multiple  1:M 
(One  to  Many)  relationships  between  the  same  pair  of  record 
types. 

The  CODASYL  DBTG  data  model  was  developed  by  the  same 
group  that  formulated  COBOL.   It  was  developed  during  the 
late  1960s  and  is  the  oldest  of  the  data  models.   The  DBTG 
model  is  a  physical  database  model.   There  are  constructs  for 
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defining  physical  characteristics  of  data,  for  describing 
where  data  should  be  located,  and  for  instructing  the  DBMS 
regarding  what  data  structures  to  use  for  implementing  record 
relationships  and  other  similar  physical  characteristics. 

A  procedural  DML  has  been  carefully  and  completely 
defined  for  this  model.   A  nonprocedural  DML  for  the  DBTG 
model  does  not  exist. 

Many  DBMS  products  are  based  on  the  CODASYL  DBTG 
model.   Consider  the  following  data  structure  diagram. 
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PNAME 
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VNAME 


ADDR 
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Figure  1.8:   Network   Diagram   For   Database. 


The  above  diagram  shows  a  one  to  many  (1:M) 
relationship  between  VENDOR  and  PRODUCT.   In  a  network  DBMS 
we  deolare    them  (using  DDL)  as  in  Figure  1.9 

RECORD   NAME   IS   PRODUCT 

LOCATION  MODE  IS  CALC  USING  VEND 

1  PROD**  TYPE  IS  INTEGER 

1  PNAME  TYPE  IS  CHAR (20) 

1  UNITPRICE  TYPE  IS  REAL 
RECORD   NAME   IS   VENDOR 

LOCATION  MODE  IS  VIA  SHIPMENT 

1  VEND**  TYPE  IS  INTEGER 

1  VNAME  TYPE  IS  CHAR (30 

1  ADDR  TYPE  IS  CHAR (10) 

1  OWNER  TYPE  IS  CHAR(20) 
SET   NAME   IS   SHIPMENT 

OWNER  IS  VENDOR 

MEMBER  IS  PRODUCT 

INSERTION  IS  AUTOMATIC 

RETENTION  IS  FIXED 

SET  SELECTION  IS  VALUE  OF  PROD** 

Figure  1.9:  A  DDL  Description  of  Records  and  Set  Types. 
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In  Figure  1.9  we  see  the  declaration  of  the  record 
types   and  set  types  needed  to  describe  the  network  of  Figure 
1.8.    These  declarations  are    in   DDL  syntax. 

The  fields  for  each  record  type,  with  the  data  type 
of  each  field,  Bre    listed  in  the  declaration  of  the  record 
type.   The  integer  1  preceding  each  field  name  is  a  level 
number,  as  in  the  declaration  of  PL/I  record  structures. 
Level  numbers  up  to  99  are  permitted,  allowing  fields  to  have 
structure.   The  typical  use  of  such  structure  is  to  declare, 
within  a  field  such  as  ADDRESS,  subfields  like  STREET,  CITY, 
and  ZIP  CODE  at  level  2. 

So  a  record  type  is  declared  as: 

RECORD  NAME  IS   < record  type  name) 
followed  by  the  list  of  attribute  names  and  their  data  type. 

Figure  1.9  also  contains  the  declaration  of  one,  set 
type,  corresponding  to  the  one  link  in  Figure  1.8.   The  link 
is  many-to-one  from  PRODUCT  record  type  to  the  VENDOR  record 
type.   A  set  type  is  declared  as  fallows: 
SET  NAME   IS   <set   type  name) 
followed  by  the  name  of  OWNER  and  MEMBER  record  types. 

The  meaning  of  an  option  available  in  declaring  a 
record  type,  LOCATION  MODE  IS,   is  explained  as   follow: 

CALC:   Indicates  that  a  record  instance  will  be 
placed   and  may  be  accessed  in  secondary  memory  based  on  a 
value  for  a  primary  or  secondary  key.   Usually,  this  is 
implemented  by  key  value  hashing,  but  index  methods  Are 
possible.   That  is,  a  database  can  be  entered  directly  at  a 
given  record  if  a  CALC  key  value  is  known. 

VIA  :   Indicates  that  a  record  instance  will  be 
placed  in  secondary   memory  close  to  its  parent  record 
instance  for  one  specified  set.   This  helps  to  improve 
performance  when  used  with  a  frequently  referenced  set.   VIA 
and   CALC  may  not  both  be  used  on  the  same  record. 
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Use  of  VIA  prevents  access  to  the  record  by  a  key  value. 

DIRECT:   Indicates  that  a  record  instance  will  be 
placed  by  and  may  be  accessed  by  its  physical  address. 

a.  Program  Environment 

For  every  user  accessing  a  database,  there  is  a 
workspace  called  user  working  area  which  holds  three  kinds  of 
data: 

(1)  Variables.   They  are    defined  by  the  program. 

(2)  Currency. pointers.   They  are  variables  that  hold   the 
physical  address  (called  database  key  in  CODASYL 
terminology)  of  the  record  instance  most  recently 

_  # accessed  or  manipulated  in  a  specified  category  of 
records.   There  are  three  kinds  : 

(a)  Current  of  run— unit:   The  most  recent  instance  of 
any  database  record  is  referenced. 

<b)  Current  of  record  type:   For  each  record  type  in 

the  schema,  the  most  recent  instance  is  referenced. 

(c)  Current  of  set  type:   For  each  set  type  in   the 

schema,  the  most  recent  set  record  instance  (either 
owner  or  member)  is  referenced. 

(3)  Tempi ates_f or  the  various  record  types.  Values  placed 
in  the  template  will  be  copied  to  the  database  by  STORE 
command   and  copied  into  it  from  the  database  by 

the  GET  command. 

b.  Data  Retrieval 

Two  key  commands  in  data  relationnal  operations 
arez 


(1)  FIND.   The  FIND  command  moves  the  currency  pointers. 
It  has  the  following  syntax: 

(a)  FIND  < record  type>  RECORD  BY  DATABASE. 

For  example,  referring  to  Figure  1.8  and  assuming: 
-  VENDOR   is  stored   with  LOCATION  MODE  BY  CALC 
using  VEND#. 
-  PRODUCT  is  stored  VIA  VENDOR 

LOC  =  CURRENT  OF  PRODUCT 

FIND  PRODUCT  RECORD  BY  DATABASE  KEY  LOC 

SET  PRODUCT,  UNITPRICE 

(b)  FIND  <record  type> 
For  example: 
VENDOR. VNAME  =  'AAA' 

FIND  VENDOR  RECORD  BY  CALC 
SET  VENDOR 

(2)  SET.  This  command  copies  the  record  instance  of  the 
current  run— unit  into  a  template,  and  has  the  following 
syntax : 

SET  <record  type>,<list  of  attribute  names) 

Notice  that  a  record  instance  of<record  type>  must  be 

pointed  by  the  current  run— unit. 

c.   Data  Update 


An  update  operation  includes  insertion,  deletion 
and  modification  of  a  record.   There  are  several  options 
available  in  network  DBMS  for  the  update  operations.   When  we 
insert  a  new  record  into  a  database,  do  we  want  the  record  to 
be  automatically  attached  to  the  appropriate  owner  or  do  we 
want  to  control  where  it  is  attached  ourselves?   Two  options 
are  available,  INSERTION  IS  AUTOMATIC   and   INSERTION  IS 
MANUAL.   We  would  use  INSERTION  IS  AUTOMATIC  if  the  record 


cannot  exist  without  having  an  owner.   On  the  other  hand,  if 
the  record  can  exist  without  having  an  owner,  then  we  must 
select  INSERTION  IS  MANUAL.   The  option  INSERTION  IS  affects 
the  insertion  operation.   Similarly,  the  RETENTION  IS   option 
affects  the  removal  of  a  member  record  from  a  set.   When 
RETENTION  IS  FIXED  is  used,  the  member  record  must  be 
permanently  associated  to  the  same  owner.   The  only  way  to 
change  the  association  is  to  physically  erase  the  record  from 
the  database,  then  re— insert  it  connecting  to  the  new  owner. 
When  RETENTION  IS  MANDATORY  is  used,  the  member  record  does 
not  have  to  be  fixed  to  the  same  owner.   However,  the  member 
record  must  be  associated  to  some  owner  in  order  to  exist  in 
the  database.   When  RETENTION  IS  OPTIONAL  is  used,  the  member 
record  does  not  have  to  be  fixed  to  the  same  owner  nor 
associated  to  some  owner.  CRef .2:  pp.  25—303 


4.   Relational  Data  Model  (RDM) 


The  relational  data  model  is  near  the  midpoint 
between  human— machine  activity  because  it  has  both  logical 
and  physical  characteristics.   The  relational  model  is 
logical  in  that  data  is  represented  in  a  format  familiar  to 
humans.   The  relational  model  is  unconcerned  with  how  the 
data  is  represented  in  computer  files.   There  are  relational 
DBMS  products.   This  means  that  databases  designed  according 
to  the  relational  model  need  not  be  transformed  into  some 
other  format  before  implementation. 

RDM  is  different  from  HDM  and  NDM  in  its  architecture 
and  also  in: 
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a.  Normalization  theory. 

Properties  of  a  database  that  make  it  free  of  certain 
maintenance  problems. 

b.  Query  languages. 

These  languages  permit  data  to  be  manipulated  as  groups 
and  not  procedurally  as  one  record  at  a  time. 

RDM  represents  data  as  a  collection  of  relations.   A 
relation  is  a  2— dimensi onal  table  with  the  following 
properties: 

a.  Each  column  contains  values  about  the  same  attribute. 

b.  Each  column  has  a  distinct  name. 

c.  Each  row  is  distinct. 

d.  Sequence  of  the  rows  is  immaterial. 

Figure  1.10  shows  two  relations,  one  for  customers 
and  the  other  for  invoices.   The  rows  of  the  relation  are    the 
file  records.   Rows  are    sometimes  called  tuples  of  the 
relation.   The  fields  of  the  relation  are    shown  in  the 
columns,  they  are    sometimes  called  the  attributes  of  the 
rel ation. 

The  significance  of  the  relational  model  is  not  that 
data  is  arranged  in  relations,  but  that  relationships  are 
considered  to  be  implied  by  data  values.   For  example,  in 
Figure  1.10  a  relationship  is  implied  by  the  common 
attribute,  customer— number .   Customer— number  10  in  the 
CUSTOMER  relation    is  related  to  100  in  the  INVOICE 
relation.   We  can  join  these  two  relations  together  on  a 
common  value  of  Customer— numbers  as  shown  in  Figure  1.11. 

The  principal  advantage  of  carrying  relationships  in 
data  is  flexibility.   Relationships  need  not  be  predefined. 
We  can  join  CUSTOMER  tuples  with  INVOICE  tuples  or  CUSTOMER 
tuples  with  ACCOUNTS-RECEIVABLE  tuples,  or  whatever,  without 
having  to  predefine  the  relationships  in  the  design. 
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Figure  1.10:   Sample  Relations.  CRe-f.l:  p.  1963 
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Figure  1.11:  Join  o-f  CUSTOMER  and  INVOICE  Relations. 

CRef.  Is  p.  1973 

More  research  has  been  done  regarding  the  relational 
model  than  any  other  model.   Much  has  been  said  regarding  the 
best  ways  of  structuring  relations,  and  many  di-f-ferent 
relational  data  manipulation  languages  have  been  designed. 


Some  o-f  these,  such  as  SQL,  are  nonprocedural. 
Others,  such  as  relational  algebra,  are    procedural.   Until 
recently,  the  problem  with  the  relational  model  has  been  the 
lack  of  a  commercially  viable  relational  DBMS.   However, 
there  are    now  several  relational  DBMS  products. 

a.  Data  Definition  Language  (DDL) 

The  general  format  of  DDL  in  a  relational  DBMS 
is:  CREATE   <table  name)  ^attribute  list>) 

where  < table  name>  is  the  name  of  relation  and  <attribute 
list>  is  the  list  of  attributes  and  their  type  declaration. 
To  create  an  employee  table  with  name,  age,  and  address 
attributes,  we  declare. 

CREATE  EMPLOYEE  <NAME=CHAR (20) ,  ABE= INTEGER, ADDR=CHAR ( 10) ) 

b.  Data  retrieval 

The  relational  model  is  based  on  the  mathematical 
theory  of  set  and  relations.   We  have   well— defined 
mathematical  formalisms  for  manipulating  relations.  They  are: 

( 1 )  Relational  algebra,  and 

(2)  Relational  calculus,  divided  into  tuple  and  domain 
calculus. 

Real  guery  languages  used  in  relational  DBMS  are: 

(1)  SQL  (Sequence  Query  Language),  based  on  relational 
algebra. 

(2)  QUEL  (Query  Language) ,  based  on  tuple  calculus. 

The  general  formats  arez 
(1)  SQL 

SELECT  <attribute> 
FROM  <relation> 
WHERE  <conditions> 
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(2)   QUEL 

{RANGE  OF  <var>  IS  <reiation» 
RETRIEVAL  (< var >. <attri bute> 

i  ,  <var >.< at tribute >} ) 
WHERE  <condition> 


c.   Data  update 

(1)  Insertion.   The  general  formats  for  the 
insertion  operation  Are: 

(a)  SQL 

INSERT   INTO  <relation> 
[WHERE  <condition>] 

(b)  QUEL 

APPEND  CT03  <relation>. (<tarqet  list>) 

(2)  Delete.  The  general  formats  for  deletion 
operation  are: 

(a)  SQL 

DELETE   FROM   <relation> 
C WHERE  <condition>D 

(b)  QUEL 

DELETE  < tuple  va.r> 

I  WHERE  <condition>] 

(3)   Modification.   They  are: 

(a)  SQL 

UPDATE  <relation> 
SET  <assignment> 

C WHERE  <condition>] 

(b)  QUEL 

REPLACE  < tuple  var>     (< tar get  list>) 

CWHERE  <condition>3  CRef.  2:  pp. 19-25  3 
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5 .   Comparison  of  the  Models 

To  evaluate  the  three  models  we  must  first  state  the 
criteria  by  which  they  should  be  judged.  We  see  two  primary 
concerns. 

a.  Ease  of  use 

Especially  in  small  databases,  on  the  order  of 
thousands  or  tens  of  thousands  of  records,  the  principal  cost 
may  be  the  time  spent  by  the  programmer  writing  application 
programs  and  by  the  user  posing  queries. 

b.  Efficiency  of  Implementation 

When  databases  Are    large,  the  cost  of  storage 
space  and  computer  time  dominate  the  total  cost  of 
implementing  a  database.   We  need  a  data  model  in  which  it  is 
easy  for  the  DBM  to  translate  a  specification  of  the 
conceptual  schema  and  the  conceptual —to— physical  mapping  into 
an  implementation  that  is  space  efficient  and  in  which 
queries  can   be  answered  efficiently. 

By  the  criterion  of  ease  of  use,  there  is  no 
doubt  that  the  relational  model  is  superior.   It  provides 
only  one  concept,  the  relation,  that  the  programmers  or  user 
must  understand.   Moreover,  the  relational  algebra  and 
calculus  clearly  provide  a  notation  that  is  quite  powerful. 
The  network  model  requires  our  understanding  of  both  record 
types  and  links,  and  their  interrelationships.   The 
implementation  of  many- to— many  relationships  and 
relationships  on  three  or  more  entity  sets  is  not 
straightforward.   Similarly,  the  hierarchical  model 
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requires  understanding  the  use  of  pointers  and  has  the  same 
problems  as  the  network  model  regarding  the  representation  of 
relationships  that  are  more  complex  than  many-to-one 
relationships  between  two  entity  sets. 

When  we  consider  the  potential  -for  efficient 
implementation,  the  network  and  hierarchical  models  score 
high  marks.   Since  relations  can,  and  often  do,  represent 
many— to— many  mappings,  we  see  that  efficient  implementation 
can  be  more  difficult  for  relational  than  for  network  or 
hierarchical  Database. 

Early  commercial  database  systems  were  almost 
uniformly  based  on  the  network  or  hierarchical  model ,  because 
the  emphasis  of  such  systems  has  been  on  the  maintenance  of 
large  databases,  and  these  models  lend  themselves  most  easily 
to  the  necessary  efficient  implementation.   However,  there 
were  in  1982  several  successful  commercializations  of  the 
relational  model,  and  we  feel  that  the  relational  systems 
will  become  progressively  more  accepted  for  two  reasons. 
First,  it  is  becoming  clear  that  the  same  concepts  used  to 
design  a  large  database  apply  as  well  to  small  and  medium 
scale  databases,  and  there  Are    many  more  small  databases  than 
large  ones.   With  small  databases,  the  ease  of  use  inherent 
in  the  relational  model  assumes  increased  importance. 
Second,  many  of  the  apparent  inefficiencies  of  the  relational 
model  can  be  eliminated.  CRef.2:  pp. 168-1703 
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C.   DBASE  II  CONCEPTS 

DBASE  is  a  relational  database  management  system.  The 
dBASE  II  does  contain  its  own  programming  language, 
permitting  a  user  to  develop  extremely  powerful  and  complex 
programs  that  meet  demanding  applications  like  general 
personnel,  accounting  and  inventory  control. 

1.   Features  of  dBASE  II 


The  most  important  features  o-f  dBASE  II  are: 

a.  Independence  of  programs  and  data.   Changes  in  file 
structures  do  not  affect  programs. 

b.  Data  can  be  easily  updated. 

c.  Sorting  and  indexing  capabilities. 

d.  Easy  creation  of  reports  by  the  report  generator 
facility,  or  under  program  control. 

e.  Very  high  level  built— in  language  which  supports 
structured  programming. 

2.   Limitations  of  dBASE  II 


The  limitations  of  dBASE  II  Arez 

a.  DBASE  II  allows  only  two  files  to  be  open  at  a  time. 
This  creates  difficulties  which  can  be  overpassed  by 
using  special  technigues  but  the  system  will  slow  down, 

b.  DBASE  II  allows  only  32  fields  per  record,  which  is 
enough  most  applications,  and  the  maximum  number  of 
characters  permitted  per  record  is  1000. 

c.  Each  field  can  be  up  to  254  characters  long. 
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d.  DBASE  II  does  not  allow  for  swapping  of  data  disks 
during  a  program  execution,  there-fore  making  the 
selection  of  a  floppy— disk  based  system  impractical  for 
database  sizes  >  1.2  Mbytes. 

e.  DBASE  II  allows  16  programs  to  be  run  at  any  given 
time,  reduced  by  the  number  of  data  files  in  use.   For 
example,  if  we  have  2  files  in  use.  then  14  programs 
are  allowed. 

f.  DBASE  II  applications  Are    slower  than  compiled 
programs. 
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D.   PLANNING   PHASE 

Planning  phase  can  generally  be  thought  o-f  as  having  two 
major  components,  systems  analysis  and  systems  design. 

System  analysis  is  the  process  of  gathering  and 
interpreting  facts,  diagnosing  problems,  and  using  the  facts 
to  improve  the  system- 
System  design  is  the  process  of  planning  a  new   system  to 
replace  or  complement  the  old.   System  design  proceeds 
through  the  two  phases  of   logical  design  and  physical 
design.   Logical  design  includes,  in  detail,  the 
specifications  of  the  new  system,  that  is,  the  outputs,  the 
inputs,  the  files,  and  the  system  functions.   Physical  design 
includes  the  program  software,  and  the  working  system. 

System  analysis  and  design  Are    covered  in  the  next  three 
sections  2,  3,  and  4. 


II.   ANALYSIS    PHASE 

System  analysis  is  the  process  of  gathering  and 
interpreting  facts,  diagnosing  problems,  and  using  the  -facts 
to  improve  the  system.   Analysis  specifies  what  the  system 
should  do. 

In  our  case,  we  want  to   computerize'  an  Ordnance 
Battalion  in  order  to  better  control  the  inventory  and  have 
more  current,  up-to-date,  information  about  stock  levels  and 
reordering. 

Before  the  design  of  the  system  can  be  determined  for 
activities  such  as  the  capture  of  data,  updating  of  files, 
and  production  of  reports,  we  need  to  know  more  about  how  the 
Battalion  now  handles  its  operations.   Especially,  we  must 
answer  all  the  following  questions.   What  forms  ana    being 
used  to  store  information  manually  such  as  requisitions  and 
orders?   What  reports,  if  any,  are  now  being  produced  and 
what  they  are    being  used  for?   How  does  the  system  presently 
work,  or  more  specifically,  what  does  the  flow  of  information 
through  the  system  look  like?   Why  does  the  Battalion  want  to 
change  its  current  operations?   Does  it  have  problems  in 
handling  inventory,  orders,  and  supplying  the  units  of  the 
Di  visi  on? 

After  answering  the  above  questions  and  gathering  other 
information  about  the  current  system  we  can  begin  to 
determine  how  and  where  a  computer  information  system  can 
benefit  the  user  of  the  system. 

This  chapter  contains  a  discussion  of  the  current 
logistic,  tactical,  and  operational  system  of  the  Ordnance 
Battalion.  That  is  followed  by  the  analysis  which  contains 
the  objectives  of  this  project,  the  automation  environment, 
and  the  system  requirements  including  input  and  output 
information. 
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A.   CURRENT  SYSTEM 

1.   General  Description  of  an  Ordnance  Battalion 

An  Ordnance  Battalion  is  the  primary  materials 
supplier  to  all  units  o-f  an  INFANTRY  DIVISION.   In  total,  it 
supplies  materials  for  up  to  25  independent  units. 

The  organization  of  a  typical  Infantry  Division  and 
an  Ordance  Battalion  is  shown  in  Figures  2.1,  and  2.2, 
respectively.  Figure  2.3  shows  a  typical  list  of  units 
supplied  by  the  Ordnance  Battalion  in  an  Infantry  Division. 

2 •   Ordnance  Battalion'  Materials 

An  Ordnance  Battalion  handles  two  main  categories  of 
materials: 

a.  General  Material. 

(1)  Transportation  means  (Vehicles,  etc.) 

(2)  Communication   means  (Wireless  sets,  etc) 

(3)  Weapons  (Rifles,  Machine  guns,  Pistols,  etc) 

(4)  Other  general —mater i al  (Beds,  Tables,  Dresses, etc) 

b.  Spare-Parts. 

Spare-Parts  for  the  above  general  materials'  list. 
Especially,  spare— parts  for  transportation  means, 
communication  means,  and  weapons. 
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Organization  of  Infantry  Division 
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Figure  2.2:   Organization  o-f  an  Ordnance  Battalion 
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Figure  2.3:   List  of  units  of  an  Infantry  Division 

46 


3-   Basic  Operations 

The  basic  operations  of  the  Ordnance  Battalion  are: 


a.  The  Ordnance  Battalion  has  an  organizational  structure 
as  depicted  in  Figure  2.2. 

b.  The  GENERAL  MATERIAL  COMPANY  of  the  Battalion  holds  all 
the  general  materials  and  supports  all  units  of  the 
Division. 

c.  The  four  SPARE  PART  COMPANIES  of  the  Battalion  Ar& 
independent  of  each  other  and  each  contains 
approximately  the  same  kinds  and  quantities  of  spare- 
parts.   The  division  of  responsibilities  of  the  four 
SPARE  PART  COMPANIES  are: 

<1)  The  first  Company  supplies  all  the  units  of  the 
Division  except  those  belonging  to  the  Infantry 
Regiments. 

(2)   Each  of  the  other  three  Companies  supplies  all 
units  of  a  specific  Infantry  Regiment. 

d.  The  WEAPONS  COMPANY  does  not  have  any  relation  with 
materials  and  contains  all  the  military  and  civilian 
personnel  needed  for  the  different  activities  of  the 
Ordnance  Battalion  other  than  those  of  handling 
material s. 

e.  The  OLD  MATERIAL  COMPANY  receives  ail  the  old  materials 
returned  from  the  units  of  the  Division.   Its  purpose 
is  to  separate  these  materials  into  repairables  and 
useless.   The  useless  materials  Are    destroyed,  and  the 
repairables  are  given  to  the  Repair  Company  of  the 
Battal ion. 

f.  The  REPAIR  COMPANY  receives  all  repairable  old 
materials  from  the  Old  Material  Company  of  the 
Battalion  and  repairs  them. 

g.  The  operational  and  tactical  activities  of  the 
Battalion  are: 

(1)   The  GENERAL  MATERIAL  COMPANY  and  the  first  SPARE 
PART  COMPANY  remain  with  the  Ordnance  Battalion 
supporting  the  Infantry  Division. 
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(2)   Each  of  the  other  three  SPARE  PART  COMPANIES 
follows  its  supporting  Regiment  and  acts 
independently  from  the  Ordnance  Battalion. 


4.   Documents 


Two  documents  &re    used: 

a.  The  first  document  is  used  by  all  units  of  the  Infantry 
Division  in  order  to  request  materials  from  the 
Ordnance  Battalion. 

b.  The  second  document  is  used  by  the  Ordnance  Battalion 
in  order  to  give  the  requested  materials  to  the  units. 


5.   Acquisition  of  Materials 

Once  a  week  the  Ordnance  Battalion  informs  the 
Ordnance  Regiment  with  its  required  quantities  of  materials. 
In  order  to  calculate  the  required  quantity  in  one  material 
the  following  factors  must  be  taken  into  consideration: 

a.  The  existing  quantity  of  the  particular  material. 

b.  The  maximum  and  minimum  quantity. 

c.  The  owed  quantity. 

d.  The  required  time  between  the  ordered  date  and  the  date 
of  receiving  the  materials. 

The  required  time  between  ordering  a  material  and 
receiving  it  is  about  three  months,  so  it  is  crucial  to 
calculate  correctly  the  ordered  quantity. 
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B.   SYSTEM  OBJECTIVES 

1.   Reasons  -for  the  Project 

The  reasons  for  switching  from  the  existing  manual 
system  to  an  automated  one  are: 

a.  To  achieve  greater  processing  speed. 

Using  the  computer's  inherent  ability  to  calculate, 
sort,  and  retrieve  data  and  information  is  faster  than 
that  of  people  doing  the  same  tasks. 

b.  To  achieve  better  accuracy  and  improve  consistency. 

Carrying  out  computing  steps,  including  arithmetic, 
correctly  and  in  the  same  way  each  time. 

c.  To  achieve  faster  information  retrieval. 
Locating  and  retrieving  information  from  storage. 

d.  To  reduce  the  cost. 

Using  computing  capability  to  process  data  at  a  lower 
cost  than  is  possible  with  other  methods,  while 
maintaining  accuracy  and  performance  levels. 

e.  To  provide  better  security. 

Safeguarding  sensitive  and  important  data  andprograms 
in  a  form  that  is  accessible  only  to  those  persons 
having  authorization.   DBMS  provides  several  security 
features  such  as  :  User  authorization,  Program 
authorization.  Subschema  authorization  (i.e.  Area, 
records,  sets). 

f.  To  save  personnel  for  other  activities. 

A  manual  system  reguires  a  large  number  of  people  each 
performing  all  activities  manually.   A  computerize 
system,  on  the  other  hand,  reguires  fewer  personnel 
with  knowledge  in  programming  and  the  use  of  a 
computer . 
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2.   Project  Tasks 


The  project  tasks  are  the  following: 

a.  To  keep  track  of: 

(1)  The  existing  materials  in  the  Ordnance 
Battal ion. 

(2)  Delivered  materials  to  each  unit  of  the  Infantry 
Division. 

(3)  Owed  materials  to  each  unit. 

b.  To  provide  lists  of  materials  and  units  under  several 
specifications.   For  example,  lists  of  materials 
which  entered  the  Battalion  on  a  specific  date  or 
during  a  specific  period  of  time,  lists  of  materials 
given  to  a  unit  on  a  particular  date  or  period  of  time 
or  by  a  specific  registration  number,  or  lists  of  units 
supplied  by  a  particular  material,  etc. 

c.  To  make  inventory  reordering  and  ensure  that  adequate 
quantities  of  materials  are    on  hand  and  available  for 
use  without  carrying  an  excessive,  and  therefore 
costly,  quantity. 

d.  To  provide  an  automatic  system  of  supplying  the  owed 
materials  to  the  units  as  soon  as  these  materials  are 
made  available  to  the  Battalion. 

e.  To  ensure  insertions,  deletions,  and  modifications  in 
all  the  files  of  the  system  are    made  quickly  and 
accurately. 

f .  To  provide  information  such  as: 

(1)  Which  materials  are    needed  for  the  repair  of  an 
item  of  general  material  (-for  example,  for  the 
vehicle  M35) . 

(2)  The  location  of  each  material  in  the  store. 

(3)  The  materials  that  are    under  the  safety  limit  on 
quantity,  or  up  to  the  maximum  amount,  or  under 
the  minimum  quantity  limit,  etc. 
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C.   AUTOMATION  ENVIRONMENT 

Computing  services  -for  the  Ordnance  Battalion  will  be 
provided  by  a  microcomputer,  IBM  PC  or  a  corresponding 
compatible  using  a  DBASE  II  package  software.   The 
microcomputer  will  be  of  256  k  memory  and  it  will  have  two 
■floppy  disks,  and  one  harddisk  of  20  megabytes.   Inventory 
control  is  the  major  application  of  the  development  effort. 

1 .   User  Requirements 

A  requirement  is  a  feature  that  must  be  included  in  a 
new  system  and  may  include  a  way  of  capturing  or  processing 
data,  producing  information,  controling  a  business  activity, 
or    supporting  management.   The  determination  of  requirements 
thus  means  studying  the  existing  systems  and  collecting 
details  about  them  to  determine  these  requirements. 

In  our  system,  the  answers  to  the  following  two 
questions  identify  the  basic  requirements:   What  is  the  basic 
process?   What  data  is  used  or  produced  during  that  prcjcess? 

a.   Basic  Process  of  the  System 

Inventory  reordering  and  modifications  are  the 
main  processes  of  the  project. 

The  tasks  of  the  system  have  been  described  above 
in  paragraph  II. B 

The  required  steps  to  perform  reordering  are: 
verifing  the  stock  on  hand,  determining  future  requirements 
and  ideal  time  to  place  orders,  determining  quantities  to 
order,  and  placinq  the  order. 
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All  of  the  above  steps  take  place  in  the  logistic 
component  of  each  company  of  the  Ordnance  Battalion,  using 
information  provided  by  the  inventory,  and  owed  files  of  the 
system,  and  the  requested  quantity  of  each  material,  used  to 
determine  the  current  levels,  which  then  Are    compared  to 
statistical  elements  based  on  the  levels  of  personnel  and 
main  materials  of  the  Infantry  Division. 

The  estimating  time  for  this  process  as  well  as 
for  any  other  computing  activities  is  a  few  minutes  for 
simple  and  routine  orders,  and  longer  for  orders  involving 
new  logistical  support  under  special  circumstances. 

The  process  for  reordering  will  take  place  once  a 
week.   Any  other  process  will  be  performed  when  required. 

The  information  produced  is  used  by  any 
authorized  person  of  the  Ordnance  Battalion  or  Infantry 
Division. 

b.   Input  and  Output  Information 

(1)   Input  Information.   The  needed  input 
information  is  organized  as  follows: 

Each  material  must  have  a  Part  Number  of  the 
form  (0000-000-0000) ,  a  material  name  and  belongs  in  one  of 
the  categories,  Transportation  means,  Communication  means. 
Weapons,  Other— General —Material ,  and  spare-parts.   Figures 
2.4,  2.5,  2.6,  2.7,  and  2.8   show  materials  of  the  above 
categories,  respectively. 

<2)   Documents.   Basically  two  working  documents 
Are    used  to  request  and  supply  materials. 

(a)   The  first  is  the  REQUEST-DOCUMENT  as 
shown  in  Figure  2.9.   This  document  is  completed  by  the 
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supplied  unit  and  submitted  to  the  supplying  battalion.   Each 
document  may  contain  up  to  10  entries  of  General  materials, 
or  Spare  parts.   The  Spare  parts  requested  by  each  document 
must  be  used  in  only  one  general  material. 

(b)   The  second  and  most  important  document 
is  the  SUPPLIES-DOCUMENT,  Figure  2.10.   This  document  is 
completed  by  the  supplying  unit  and  is  published  in  two 
copies,  one  -for  supplying  unit  and  the  other  -for  the  supplied 
unit.   The  SUPPLIES-DOCUMENT  is  the  official  promissary  note 
for  the  unit  that  takes  the  materials  and  the  official 
document  of  credit  for  the  Ordnance  Battalion. 

This  document  is  also  used  by  the 
Ordnance  Battalion  to  subtract  from  its  store  the  quantity  of 
the  given  materials,  and  by  the  unit  to  add  in  its  store   the 
materials  received. 

The  following  information  is  necessary: 

(1)  The  number  of  personnel  of  each  unit  as  well  as  the 
total  personnel  of  the  Infantry  Division. 

(2)  The  total  number  of  each  main  material  existing  in 
each  unit. 

Also  two  books  ^re    used  by  the  Ordnance  Battalion: 

(1)  One  for  registration  enter  documents. 

(2)  The  second  for  registration  exit  documents 

(3)   Output  Information.  The  databa.se  system  can 
be  applied  to  any  Ordnance  Battation  in  any  Infantry  Division 
in  the  Greek  Armed  Forces.  The  following  information  is 
provided: 


(a)  List  of  materials  received  by  the  Battalion  on  a 
particular  date. 

(b)  List  of  all  materials  received  by  the  Battalion  in  a 
specific  period  of  time. 

(c)  List  of  all  materials  received  by  the  Battalion  based 
on  a  particular  registration  number. 

(d)  List  of  material (5)  given  to  a  unit  on  a  specific  date 
or  in  a  specific  period  of  time. 

(e)  List  of  all  materials  needed  reorder 

(f)  List  of  materials  owed  to  a  unit. 

(g)  List  of  all  units  to  which  a  specific  material  is 
owed. 

(h)   List  of  all  spare  parts  used  for  repair  from  a 
specific  main  material. 


Part— no 

Material  name 

Qtity! 

Max 

Mini 

Ind 

Owed 

Wait 

1001-000-0000 

Vehicle  M34 

■ 

35! 

50 

!  20! 

30 

0 

1    0 

1 002-000-0000 

Vehicle  M35 

25! 

50 

20! 

30 

0 

xl^J 

1003-000-0000 

Vehicle  M38 

5! 

20 

5! 

10 

10 

xL^-i 

1004-000-0000 

Vehicle  M38A1 

5! 

15 

5! 

10 

5 

20 

1 005-000-0000 

Vehicle  M41 

0! 

5 

0  1 

X-    1 

3 

"T 

8 

1 006-000-0000 

Vehicle  M51 

2! 

5 

1  ! 

-z 

0 

Am 

1 007-000-0000 

Vehicle  M113 

1 : 

3 

1 : 

2 

1 

2 

1 OOB-000-0000 

Vehicle  AMX-10 

1  ! 

~T 

1  ! 

2 

0 

1 

1009-000-0000 

Vehicle  Leopard 

1 : 

~T 

1  ! 

•-> 

x- 

~z 

1 0 1 0—000-0000 

Vehicle  M6000 

5! 

20 

5  i 

10 

5 

25 

1011-000-0000 

Vehicle  D/G  3/4 

0! 

10 

"T  1 

5 

15 

25 

2001-000-0000 

Armor  M47 

1  ! 

2 

1  ! 

0 

i 

2002-000-0000 

Armor  M48 

0! 

1  ! 

1 

3 

2003-000-0000 

Armor  AMX-30 

1 : 

1  ! 

1 

2004-000-0000 

Armor  M60 

0: 

■-> 

1  ! 

0 

1 

2005-000-0000 

Armor  M47A1 

05 

1  ! 

0 

X~ 

•Sj 

2006-000-0000 

Armor  M48A1 

1 1 

•-> 

1  ! 

0 

1 

2100-000-0000 

Armor  Veh  M453 

1 : 

'-y 

x- 

1  ! 

1 

*-> 

Figure  2.4:   Typical  List  of  Transportation  Means 
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Communication  Means 


I    Part— no    ! 

Material  name   ! 

Qtityi 

Max  ! 

Mini 

Ind! 

Owed  ! 

Wait 

: 3001-000-0000 i 

Wireless  PRC-9   ! 

5! 

10! 

5! 

71 

1  ! 

5 

: 3002-000-0000 ! 

Wireless  SCR-536 ! 

x_  t 

20S 

10! 

15! 

5! 

x_-_> 

! 3003—000-0000 ! 

Wireless  PRC-10  ! 

5 ! 

10! 

5  ' 

7! 

0  ! 

3 

: 3004-000-0000 : 

Wireless  PRC-11  ! 

0! 

5! 

X-  1 

3 : 

2  I 

tj 

! 3005-000-0000 ! 

Wireless  VRC-30  ! 

2  ! 

5! 

2  ! 

-r   i 

0! 

2 

! 3006-000-0000 ! 

Wireless  VRC-100! 

*—  i 

5! 

2! 

3  ; 

0 

*"3 

X_ 

! 3007-000-0000 

Wireless  VRC-150! 

2 

5 

X- 

1 

2 

: 300S-000-0000 

Telephone   A— 10 

5 

15 

5 

10 

5 

15 

: 3009-000-0000 

Telephonet  B-15 

0 

5 

X. 

■J 

1 

4 

! 3010-000-0000 

,  Telephonet  C-20 

5 

15 

5 

10 

O 

!   10 

: 3011-000-0000 

!  TV  set  T-31 

!     0 

■   x- 

1       X 

!   1 

1          X. 

!  y- 

: 3012-000-0000 

!  TV  set  T-55 

!      1 

!       O 

!   1 

:   i 

!    i 

!    3 

! 3020-000-0000 

!  Transmiter  TS-50 

1         D 

1            X- 

1       X- 

:  l 

i  i 

!    0 

!    0 

! 302 1 -000-0000 

!  Receiver  RS-100 

:    2 

:  5 

1     o 

1   3 

:    l 

!    4 

! 3022-000-0000 

!  Receiver  RS-150 

i    l 

!   3 

:   i 

:  2 

!    0 

1         .£. 

! 3023-000-0000 

!  Transmiter  TS— 55 

:    i 

1      T 

:   i 

!   2 

•    0 

1    2 

Figure  2.5:   Typical  List  o-f  Communication  Means 
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Weapons 


Part-no    ! 

Material  name   ! 

Qtity! 

Max  ! 

Min, 

Ind 

Owed  i 

Wait 

4001-000-0000! 

Ri-fle  Ml  .30     ! 

50! 

100 

50 

70! 

o: 

20 

4002-000-0000 i 

Rifle  M1A1  .30 

10! 

20! 

10, 

15 

5! 

15 

4003-000-0000 

Pistol  .38 

5 

10 

5 

7 

0 

5 

4004-000-0000 

Pistol  .45 

10 

io 

5 

7 

o 

0 

4005-000-0000 

Machine-Gun  .45 

1 

5 

"7" 

1 

3 

4006-000-0000 

Machine— Gun  .30 

1 

5 

■J> 

!    1 

3 

4007-000-0000 

Machine-Bun  .50 

1 

5 

"J 

!    1 

•J> 

4008-000-0000 

»  Gun  105  mm 

2 

5 

1     *"> 

'2> 

!    0 

•J> 

4009-000-0000 

.  Gun  155  mm 

o 

!   5 

1        *-} 

O 

!    0 

0 

40i 0-000-0000 

Gun  100  mm 

!   5 

i     -J> 

!    0 

<-> 

4011-000-0000 

!  Gun  8' 

!     1 

!   5 

1    *-> 

1     X- 

I     O 

I    1 

o 

4012-000-0000 

1  Gun  90  mm 

!     1 

!   5 

1    *-> 

1     x_ 

!   3 

!    0 

4 

4013-000-0000 

!  Gun  205  mm 

!     1 

5 

!   2 

1        T 
1        •_* 

I    0 

4 

40 1 4-000-0000 

!  Rifle  .303 

!    20 

!  50 

1  10 

,  20 

!    0 

0 

4015-000-0000 

!  Pistol  .22 

1          O 

1             JL. 

!   5 

i    x- 

1      %_> 

!    0 

40 1 6-000-0000 

!  Rifle  .22 

!    15 

!  50 

20 

!  30 

!    5 

Figure   2.6:       Typical    List    of    Weapons 


Qthei — General -Material 


Part-no    ! 

Material  name   ! 

Qtity ! 

Max  ! 

Min  i 

Ind  ! 

Qwed 

Wait 

9000- 1 01 -0001 

Beds              ! 

25! 

50! 

20! 

30  , 

0 

20 

9000-101-0002 

Blackets          ! 

200! 

500! 

50! 

200 

0 

0 

9000-102-0001 

Shirts            ! 

150 

200 

50 

100, 

0 

0 

9000- 1 02—0002 

Socks             ! 

50 

500. 

50! 

1 00  I 

0 

400 

9000- 1 02-0003 

Shoes 

50 

100 

30 

50 

0 

50 

9000- 1 02-0004 

Pantalon 

10 

100 

30 

50 

20 

i  oo 

9000— 1 03-000 1 

Dishes 

10 

200 

50 

100 

0 

200 

9000-103-0002 

Pots              i 

10 

200 

50 

100 

10 

200 

9000— 1 04— 000 1 

Tables 

1  c; 

X  %J 

50 

10 

20 

0 

0 

9000- 1 04-0002 

Chairs 

15 

50 

10 

20 

o 

30 

9000-199-0001 

Soaps             i 

20 

100 

20 

30 

10 

80 

9000-199-0002 

Toothbranshes 

30 

100 

30 

50 

0 

50 

9000-199-0003 

Hats 

20 

200 

50 

100 

20 

200 

9001-001-0001 

Kn  i  -f  e 

20 

100 

20 

50 

0 

50 

9001-001-0002 

Fork 

15 

100 

20 

50 

10 

70 

9001-001-0003 

Spoon 

15 

100 

20 

50 

10 

85 

9100-100-0001 

Oil  filtr  Wrench 

5 

10 

5 

T 
/ 

o 

T 

9100-100-0002 

Socket  Wrench  st 

o 

10 

5 

7 

2 

5 

9100-100-0003 

Ex tent ion  Bar 

5 

*1 

•-> 

0 

— 

9100-100-0004 

Socket 

3 

5 

1 

i    0 

i     0 

9100-100-0005 

bpsrk   PaG.   uGCkcl 

1           «=^ 
1           i_f 

!   5 

1       *■} 

1        J- 

"T 

i    0 

i     0 

9200- 1 00-000 1 

Hammer  Holder 

!     4 

!  10 

!   3 

5 

!    0 

!    0 

9200-100-0002 

■  Saw 

3 

!  10 

o» 

5 

!    0 

!    0 

9200-100-0003 

!  Nail  set 

!      4 

!  10 

!   3 

!   5 

!    0 

!    0 

9200-100-0004 

>  Hacksaw 

1       r> 

!  10 

T 

!   5 

'     *~s 

i    0 

9200- 1 00-0005 

.  Window  Scraper 

1             jL. 

!  10 

!   3 

!   5 

!    0 

!    0 

9200-100-0006 

!  Plumb  Bob 

I       1 

!  10 

•J> 

!   5 

i    •-> 

i    0 

9200- 1 00-0007 

CI  amp 

!      0 

!  10 

3 

5 

!    4 

!    0 

9300- 1 00-000 1 

Wrench   1 ' 

i      i_ 

!  10 

o 

!   5 

!    0 

i    5 

9300- 1 00-0002 

■  Wrench   2 ' 

1         T 
i         O 

!  10 

3 

!   5 

I    3 

!    0 

9300-100-0003 

!  Wrench   5' 

I     4 

!  10 

1   3 

5 

!    0 

1         -J> 

9300-100-0004 

.  Wrench   10' 

1          O 

1          J- 

!  10 

o 

5 

0 

i          sl> 

9300-100-1001 

!  Screw  Driver   1' 

!      1 

!  10 

3 

5 

1          X- 

!    0 

9300-100-1002 

!  Screw  Driver  1,5 

!     5 

!  10 

3 

5 

!    0 

!    0 

9300-100-1003 

!  Screw  Driver   2' 

!     10 

!  10 

~T 

5 

!    0 

!    0 

9300-100-1004 

!  Screw  Driver   3' 

!     8 

!  10 

5 

I    0 

!    0 

9300-100-1005 

!  Screw  Driver   4' 

1          "7 
1          / 

I  10 

3 

5 

!    0 

!    0 

9300-100-1006 

!  Screw  Driver   5' 

!      3 

,  10 

i     t 

5 

!    4 

!    0 

9300- 1 00- 1 007 

!  Screw  Driver  10' 

!      4 

!  10 

C> 

5 

O 

"T 

Figure  2.7:   Typical  List  of  Other — General  -Material 
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SPARE 


PARTS 


Part— no    ! 

Material  name   ! 

Qtity ! 

Max  i 

Min! 

Ind 

Owed  ! 

Wait 

1002-100-0001 ! 

Starter           ! 

1  ! 

5! 

2  1 

3! 

3  ! 

2 

1002-100-0002! 

Spark  Plug        I 

10! 

50! 

20! 

30! 

10! 

0 

1002-100-0003! 

Ignition  Wire  St! 

5! 

x_  i 

T    \ 

0! 

0 

1002-100-0004! 

Battery  Repr  Kit! 

5! 

5! 

x. 1 

•J  : 

0! 

0 

1002-100-0005 

Battery  Tester   ! 

2 

5 

2 

1  ! 

•jf 

1002-100-0006 

Battery  Pole 

-r 

5 

•p 

X. 

0> 

0 

2 

1002-100-0007 

Battery  Cable 

4 

5 

2 

3 

o 

0 

1002-100-0006 

Battery  Terminal 

1 

5 

•p 

X. 

vl> 

-J> 

5 

1002-200-0001 

Automobil  V-Belt 

5 

"P 

X. 

!    0 

•p 

x_ 

1 002-200-0002 

Washer  Pump 

2 

5 

•"J 

X. 

o> 

1 

0 

1002-300-0001 

Fluid  Monitor 

1 

5 

"P 

X- 

o 

i      O 

5 

1002-300-0003 

Wiper  Delay 

4 

5 

X- 

^ 

0 

0 

1002-400-0001 

Radiator  Cap 

1          -_• 

5 

2 

T 

!    0 

0 

1002-100-0009 

Thermostat 

1          O 

X. 

5 

X. 

!    1 

3 

1 002-400-0002 

Fuel  line  Hose 

1          -? 

1          \J 

5 

«p 

X- 

1      "7 

!    0 

0 

1 002-400-0003 

.  Heater  hose 

2 

!   5 

1       X_ 

TE 

!    1 

0 

1002-900-0001 

Compressed  Asbes 

1 

1       «_l 

1   2 

%I> 

[       "T 

2 

1002-500-0001 

,  Multiplex  Weld 

1        o 

1        X- 

!   5 

i    x» 

*T 

!    1 

5 

1002-400-0004 

,  Oil  Filter 

o 

5 

1        X- 

o» 

!    0 

o 

1002-500-0002 

Air  Filter 

1        *-l 

1            X. 

!   5 

1     «-l 

1         X\. 

T 

!    1 

-T 

1002-600-0001 

Booster  Cable 

!      4 

!   5 

2 

1      T 

!    1 

•J> 

1 002-600-0002 

1  Hold  Trap 

!      1 

!   5 

1        X_ 

O 

1        *"1 

1        .£, 

!    0 

1001-100-0001 

i     Starter 

!    23 

!   5 

l     x_ 

1     T 

1         -w» 

!    1 

XL 

1001-100-0002 

Spark  Plug 

!    45 

!  50 

10 

!  20 

!    0 

20 

1001-100-0003 

Ignition  Wire  St 

■p 

1              jU 

1       v_» 

^5 

i     -— • 

!    0 

2 

1001-100-0004 

Battery  Cable 

1 

5 

2 

-T 

1      «p 

1          X- 

2 

1001-200-0001 

Automobil  V-Belt 

4 

5 

!   2 

1       T 

!    0 

4L. 

1001-300-0001 

Radiator  Cap 

!      1 

!   5 

1    o 

x- 

!   3 

!    0 

2 

1001-100-0005 

.  Thermostat 

!      2 

5 

1     'i 
i     xl 

C" 

!    0 

'i 

1001-400-0001 

!  Oil  Filter 

!      1 

!   5 

I     ""J 

1       X- 

1     -r 
I     -J 

!    0 

2 

1001-500-0001 

!  Air  Filter 

!     0 

5 

1     T 

1     x_ 

1     "T 

1     J 

!    0 

*p 

X- 

1003-100-0001 

■  Starter 

i       *p 

!   5 

2 

,   3 

!    O 

■p 

X- 

1003-100-0002 

!  Spark  Plug 

!     5 

i   5 

■   x. 

■? 

!    O 

*p 

X- 

1003-100-0003 

!  Ignition  Wire  St 

~T 

5 

•p 

X. 

1   3 

!    1 

0 

1003-100-0004 

!  Battery  Cable 

!     1 

5 

■p 

X- 

1        %-F 

0 

■p 

X_ 

1003-200-0001 

!  Automobil  V-Belt 

!      1 

5 

•p 

X. 

3 

!     1 

3 

1003-300-0001 

!  Radiator  Cap 

!     4 

5 

■p 

X- 

i     O 

0 

4 

1003-100-0005 

!  Thermostat 

!     1 

5 

x. 

s!> 

1      o 

1           X- 

0 

1 003-400-000 1 

!  Oil  Filter 

!     1 

5 

I     *p 

X- 

TT 

!    0 

2 

1003-500-0001 

!  Air  Filter 

i      o 

!   5 

1       X. 

3 

!    0 

2 

Continue      next      page 
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Part— no    ! 

material  name   ! 

Qtity ! 

Max  ! 

Min  ! 

Ind  ! 

Owed  ; 

Wait 

1004-100-0001 : 

Starter           ! 

o  ■ 

i-  1 

5! 

X.  1 

3 

0  ! 

o 

x. 

1005-100-0001 : 

Starter           ! 

4! 

5i 

£-     1 

3  ! 

O! 

2 

1006-100-0001 ! 

Starter           ! 

5! 

O  1 

j—    1 

-t  i 
•_■  i 

0! 

X_ 

1007-100-0001 ! 

Starter           ! 

0! 

5! 

2 

3! 

0! 

X- 

ioi o-i oo-oooi : 

Starter           ! 

1  > 
X  1 

5! 

2! 

3, 

0! 

0 

1004-100-0002! 

Spark  Plug        ! 

6! 

50! 

20, 

30 

0  ! 

20 

1004-100-0003! 

Ignition  Wire  St 

X-    1 

5! 

•~\ 

-r 

0 

0 

1004-100-0004! 

Battery  Cable 

1 

5 

•-> 

3 

1 

1004-200-0001 

Automobil  V-Belt 

X- 

5 

Am 

*7 

0 

0 

1 004-400-000 1 

Radiator  Cap 

1 

5 

•-> 

0 

x. 

1004-100-0005 

Thermostat 

o 

5 

-7 

1 

~t 

1004-400-0001 

Oil  Filter 

5 

•J 

0 

T 

1004-500-0001 , 

Air  Filter 

5 

2 

I7. 

0 

0 

3001-100-0001 

Lamp  L-10 

2 

5 

2 

"T 

0 

1 

3002-100-0001 

Lamp  L— 1 

10 

5 

7 

0 

3003-100-0001 ! 

Lamp  L-2 

l 

10 

•z 

5 

0 

1 

3005-100-0001 

Lamp  L— 25 

5 

<-> 

3 

0 

0 

3006-100-0001 

Lamp  L— 35 

X- 

5 

•-> 

X- 

"T 

0 

0 

3001-100-0002 

Transi stor 

10 

~T 

5 

0 

1 

3002-100-0002 

Transistor 

1 

5 

x. 

T 

xl 

f~* 

3003- 1 00-0002 

Transistor 

5 

20 

5 

10 

tj 

3004-100-0002 

Transi  stor 

10 

50 

10 

5 

0 

'          0 

3005-100-0002 

Transi  stor 

5 

10 

3 

5 

!    0 

0 

9300-200-1001 

Plier   8' 

-> 

10 

--> 

!    0 

i    5 

9300-200-1002 

Plier   9' 

1 

10 

■5 

5 

!         0 

9300-200-1003 

Plier   10' 

5 

10 

■i* 

5 

!    0 

0 

9300-200-1004 

Plier   20' 

!     7 

10 

o 

!   5 

i    O 

i    0 

9400-000-0001 

Hydraul  Jack  1  t 

1 

10 

T 

5 

!     1 

!    lO 

9400-000-0002 

Hydraul  Jack  2  t 

!      4 

10 

3 

!   5 

!    O 

!     4 

9400-000-0003 

Hydraul  Jack  5  t 

7 

10 

■? 

!   5 

!    0 

!     0 

9400-000-0004 

Hydraul  Jack  lOt 

10 

3 

!   5 

!     1 

!    7 

9400-000-0005 

Hydraul  Jack  30t 

!      1 

10 

!   5 

!    0 

!    5 

4001-000-0001 

.  Brooch 

!     10 

!  10 

3 

!   5 

!    0 

!    0 

4002-000-0001 

i  Brooch 

!      2 

!   5 

!   2 

l      "7 

!    0 

!    0 

4003-000-0001 

!  Brooch 

!      1 

I     O 

1      O 

I      X- 

!    0 

!    0 

4004-000-0001 

!  Brooch 

!     2 

i   3 

1     o 

1        .£- 

!    O 

I    0 

4005-000-0001 

!  Brooch 

!      1 

■   *~> 

:  i 

!    0 

!    0 

4006-000-000 1 

!  Brooch 

!     0 

i   x- 

:  i 

:   i 

!    0 

4001-000-0002 

!  Butt-end 

•      77 

■     ~7 

i    x- 

:   o 

!    0 

4002-000-0002 

!  Butt-end 

:    l 

:  5 

■   x- 

:  3 

:   i 

!    0 

4003-000-0002 

!  Butt-end 

!     0 

1       -T 
1       ■_> 

!   2 

:  l 

:   o 

!     1 

4004-000-0002 

!  Butt-end 

!     0 

!   3 

1      O 

!   1 

!    o 

:   o 

Figure  2.8:   Typical  List  of  Spare-Parts. 
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REQUEST   DOCUMENT 


Request-no 
Request-Date 


Requested  by 


Unit— Name 
City 
Phone— no 


Requested  From  : 

Suppl i  er — Name 

City 

Phone— no 


Part— no   !  Material  name   IQtitylMain  Material  Name 


Regi  ster— enter— No: 

Register-Date 


Figure  2.9:   Request  Material  Document 
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SUPPLIER  DOCUMENT 


Reg  exit  no   : 
Req  exit  Date: 


Supplied  by  : 

Suppl ier — name 

City 

Phone— no 

Supplied  to  : 

Unit— name 

City 

Phone-no 


Seq#!   Part-no 


Material  name    ! Qtity 1  Owed ! Due-date 


Reg-enter— no 
Req— enter— Date; 


Figure  2.10:   Supplies  Material  Document 
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III.   DESIGN   PHASE 


Generally  speaking  systems  analysis  and  design  refers  to 
the  process  of  examining  a  situation  with  the  intent  of 
improving  it  through  better  procedures  and  methods.   This 
section  overviews  the  system  design  while  the  system  analysis 
has  been  presented  in  the  previous  section  II. 

Systems  design  is  the  process  of  planning  a  new  system  to 
replace  or  complement  the  old.   But  before  this  can  be  done, 
we  must  thoroughly  understand  the  old  system  and  determine 
how  the  computer  can  best  be  used  to  make  its  operation  more 
effective.   Once  a  decision  is  made,  a  plan  is  developed  to 
implement  the  decision.   The  plan  includes  all  systems  design 
features,  such  as,  new  data  capture  needs,  file 
specifications,  operating  procedures,  and  eguipment  and 
personnel  needs.   The  systems  design  specifies  all  the 
features  that  are    to  be  in  the  finished  product.   While 
analysis  specifies  what  the  system  should  do,  design  states 
how  to  accomplish  the  objectives. 

Systems  design  proceeds  through  two  phases:   First  the 
logical  design  and  second  the   physical  design. 

This  section  summarizes  the  systems  design  activities 
started  by  identifying  the  logical  design,  that  is,  outputs, 
inputs,  files,  and  functions  of  the  system.   Then  the 
physical  design  is  stated,  that  is,  program  software  and 
working  system. 

A.   LOGICAL  DESIGN. 

Logical  design  is  concerned  with  the  production  of 
specifications  for  the  new  system,  that  is,  the  features  of 


the  system,  the  outputs,  the  inputs,  the  -files,  and  the 
-functions  o-f  the  system,  all  in  a  manner  that  meets  the 
project  requirements. 

In  our  system,  the  specifications  include  reports  and 
output-screen  definitions  describing  stock  on  hand,  and 
materials  owed  or  given  to  several  units  o-f  the  Division. 
The  logical  design  also  specifies  input  forms  and  screen 
layouts  of  all  transactions,  and  files  for  maintaining,  stock 
data,  transaction  details,  and  supplier  data.   Function 
specifications  describe  methods  to  enter  data,  run  reports, 
copy  files,  and  detect  programs,  should  they  occur. 

1.   Design  of  System  Output 

Often  the  most  important  feature  of  an  information 
system  for  users  is  the  output  it  produces.   Without  quality 
output,  they  may  even  feel  the  entire  system  is  so 
unnecessary  that  they  avoid  using  it  and  thus  possibly  cause 
the  system  to  fail. 

The  term  'output'  is  applied  to  any  information 
produced  by  the  system,  whether  printed,  or  displayed. 

a.   Output  Methods 

The  system  will  use  two  methods  for  output,  print 
output  and  display  output. 

(1)   Print  output.   The  printed  output  options 
will  be  the  printed  Reports  and  the  special  forms.   The 
printed  reports  will  be  on  standard  size  paper  of  9  1/2  by  11 
inches  and  the  produced  reports  are  shown  on  figure  3.1  . 
The  system  will  also  use  a  preprinted  form  as  Figure  3.2, 
that  is  designed  to  include  several  special  symbols,  the 
trademark  of  the  Battalion  and  it  will  be  a  multiple  copies 


Seq# 


Description  of  printed  Output  Reports 


Material— report ,  which  list  all  items  received  by 
the  Battalion  on  a  particular  date,  or  a   speci-fic 
period  of  time,  or  with  a  particular  registration 
number.   This  report  includes  the  part— number,  the 
material  name  and  the  quatity. 

Material— report ,  which  list  all  the  items  given  or 
owed  to  several  units  of  the  Division  under 
particular  considerations  such  as  data,  time, 
registration  number  etc.   The  reports  give  a 
description  of  the  item  (partno,  matername,  and  the 
quantity) 

Unit— report,  which  list  all  units  of  the  Division  to 
which  a  particular  material  was  given  or  supplied  by 
the  Battalion  within  a  particular  date. 

Information— report  such  as:   A  list  of  all  spare 
parts  needed  to  repair  a  main  material  (vehicle, 
weapon).   A  list  of  all  material  which  Are    placed  in 
a  particular  store  or  place.   A  list  of  all 
materials  the  quantity  of  which  is  under  or  up  to  a 
specific  amount. 

Reorder — report,  which  list  all  material  needed 
reorder.   This  report  contains  the  part  number, 
the  material  and  the  order  quantity. 


Figure  3.1:   Table  of  Printed  Output  Reports. 

document  with  a  different  color  for  each  copy.   This  special 
form  is  of  interleaved  carbon  copies. 

(2)   Display  output.   The  use  of  displays  is  more 
convenient  than  the  printer  report  because  of  the  dropping 
cost  of  display  equipment,  the  increase  in  the  number  of 
on— line  systems,  and  the  convenience  display  output  offers  to 
users. 
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SUPPLIER  DOCUMENT 


Reqexitno 

Reqexitdata: 


Supplied  by  : 

Supplier  unit: 

City 

Phone  number 

Supplied  to  : 
Unit  name 
City 
Phone  number 


Seq# 


1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 
9 
10. 


Partno 


material  name 


Qtity 


Owed 


Due-date 


Regenterno   : 
Regent er date: 


Figure   3.2  :  Preprinted  Form  for  Computer  Report. 

In  the  Battalion,  a  display  medium  consisting  of 
a  display  screen  and  a  keyboard,  will  be  used.   The  output 
will  be  displayed  on  a  monitor,  a  high-resolution  screen  that 
can  show  details  with  extra  clarity.   All  output  data 
appearing  on  the  screen  of  the  display  will  be  produced  by 
the  computer  itself. 
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The  size  of  the  letters  will  be  -fixed,  as  is  the 
capacity  of  the  screen.   The  screen  will  have  80  columns  o-f 
characters  and  25  rows.   The  design  o-f  a  display  format 
enables  the  personnel  of  the  logistic  department  of  the 
Battalion  to  request  and  retrieve  information  about  a 
specific  material,  by  using  inquiries. 

b.   Output  Layout 

Using  the  proper  output  medium  and  being  sure 
that  the  output  is  calculated  correctly  does  not  guarantee 
that  the  reports,  or  displays  will  be  useful.   The  layout 
does  this. 

An  output  layout  is  the  arrangement  of  items  on 
the  printed  output  or  the  visual  display.   All  output 
produced  by  the  system  will  have  a  report  title  and  headings 
on  the  layout  sheet.   The  elements  of  each  material  (partno, 
matarial  name,  quantity  etc)  will  be  in  one  line  and  the  same 
elements  of  different  materials  will  be  on  the  same  column. 
Figure  3.3  shows  some  types  of  layout. 

2 .   Design  of  System  Input 

All  input  of  data  and  inquiries  will  be  made  using 
the  computer  display.   Therefore,  the  development  of  the 
input  display  screens  will  result  in  input  screens  for 
instructing  the  system  whether  to  produce  output,  accept  data 
input,  or  permit  editing  of  stored  records.   Display  screens 
are    also  designed  to  input  or  edit  data  about  individual 
items.   In  each  case,  information  will  be  included  on  the 
display  screens  to  instruct  the  user  how  to  use  the  system 
and  enter  or  receive  the  necessary  information. 
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LIST 


0-f  all  materials  received  i 


n  ../../ 


Partno 


Material   name 


Qtity 


LIST 
Of  all  materials  needed  reorder 


Partno 


Material   name 


LIST 


Of  materials  owed  to  511  RB 


Qtit' 


Partno 


Material  name    ! Qti ty ! Due— date 


Figure  3.3:   Output  Layout  Reports, 
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a.   Design  of  our  On-line  Environment 

The  input  design  for  the  system  includes  the 
following  display  screens:     * 


(1)  Screen  #1  :   Enter  the  password. 

The  system  asks  the  user  to  type  the  password  in  order 
to  ensure  that  he  is  an  authorized  person.   If  the 
typed  password  is  incorrect  the  process  quits, 
otherwise  the  system  asks  the  user  to  enter  his  name 
in  order  to  check  if  he  is  authorized  to  retrieve  the 
database.      (Figure  3.4) 

(2)  Screen  #2  :   Main  menu. 

The  screen  includes  a  list,  containing  in  one  column 
the  task— code  from  0  to  4,  and  in  another  column  the 
description  of  the  available  operations  to  the  user. 
The  user  by  typing  codes  1  through  4  makes  his 
selection  of  submenul  through  submenu4.   Typing  <0> 
exits  the  system.   Finally  typing  a  number  other  than 
the  above  or  a  symbol,  an  appropriate  error  message 
appears  on  the  screen  instructing  the  user  how  to 
continue.  (Figure  3.5) 

(3)  Screen  #3  :   Update  file  functions  (Submenul) 

In  this  screen  the  operations  of  insertion,  deletion, 
and  modification  are    described.   The  user  by  typing  1, 
2,  or  3  runs  the  corresponding  sub— programs.  (Figure 
3.6)  . 

(a)  Screen  #4  :  Insert  a  material "s  quantity. 

This  program  adds  a  new  QUANTITY  of  materials  in 
the  INVENTORY  file  and  modifies  the  fields  WAITED, 
OWED,  REGENTERNO,  REGENTDATE ,  DUEDATE  also  of  the 
same  file,  or  creates  a  new  record  if  the  received 
material  does  not  exits  in  the  INVENTORY  file.   It 
also  creates  a  new  record  of  materials  in  the 
STATUS  file.  (Figure  3.7) 

(b)  Screen  #5  :   Delete  a  material 's  quantity. 

This  program  subtract  a  given  material  from  the 
field  QUANTITY  of  INVENTORY  file  and  modifies  the 
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Ordnance   Battalion   Database 
Security   System 


Enter  Password  : 
Enter  your  last  name 
Enter  time  : 


Figure  3.4  :   Screen  -for  Password. 


**************************** 

*  * 

*  MAIN     MENU     * 

*  * 
**************************** 

Select  one  of  the  -following 


Update  of  -Files 
Reorder  processing 
Report  generator 
Look— up 
Exit  the  System 


Your  selection  — >:  !  !  : 


Figure  3.5  :   Detail  Screen  for  MAINMENU, 
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***************************************** 

*  UPDATE   FILE  FUNCTIONS  * 

*           * 

*  (Submental)  * 

*  * 

*  code       Task       Description  * 

* jt 

*  1. .   Insert  a  material "s  quantity  * 

*  * 

*  2..   Delete  a  material's  quantity  * 

*  * 

*  3.    Modify  a  material  's  name  * 

*  * 

*  0.    Return  to  mainmenu  * 

***************  *******************  ******* 

Select  one  of  the  above  codes 
Enter  Your  Selection  — >:  : 


Figure  3.6  :  Screen  for  SUBMENU1. 


****************************************** 

*  INSERT  A  MATERIAL'S  QUANTITY       * 

*       * 

*  (Subprqll)  * 

*  * 

*  The  program  is  ready  to  run  when  you  * 

*  enter  <y>,  and  then  the  part  number  of  * 

*  material,  the  material  name,  and  the    * 

*  received  quantity.  * 

*  * 

*  Please,  wait  a  few  seconds  and  the    * 

*  updated  records  of  the  material  * 

*  will  appear  on  the  screen.  * 

*  * 
****************************************** 

Enter  <y>  to  continue  or  <n>  to  stop 


Figure  3.7  :   Screen  for  SUBPRG11 
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************************************-***#-* 

*  DELETE  A  MATERIAL'S  QUANTITY      * 

*       * 

*  <Subprgl2>  * 

*  * 

*  The  program  is  ready  to  run  when  you  * 

*  enter  <y>,  and  then  the  part  number   * 

*  of  material,  the  material  name,  the   * 

*  given  quantity,  and  the  unit  name.    * 

*  * 

*  Please,  wait  a  few  seconds  and  the    * 

*  old  and  updated  records  will  appear   * 

*  on  the  screen.  * 

*  * 
***************************************** 

Enter  <y>  to  continue  or  <n>  to  stop 


Figure  3.8:   Screen  for  SUBPRG12 


**************************************** 

*  MODIFY  A  MATERIAL'S  NAME         * 

*        * 

*  (Subprgl3)  * 

*  * 

*  This  program  interactively  changes   * 

*  a  material  name  into  a  new  one.  The  * 

*  only  thing  to  do  is  to  type  <y>,     * 

*  and  then  the  old  and  the  new  name,   * 

*  and  in  a  few  seconds  the  old  and     * 

*  the  new  records  of  the  material      * 

*  appears  on  the  screen.  * 

*  * 

*  The  modification  is  applied  into     * 

*  all  used  in  the  database  files  of    * 

*  INVENTORY,  OWED,  and  MATERIAL.        * 

*  * 
**************************************** 

Enter  <y>  to  continue  or    <n>  to  stop 


Figure  3.9:   Screen  for  SUBPRG13 
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other  fields  i -f  it  is  necessary.   It  also  creates 
a  new  record  of  that  material  in  the  MATERIAL 
file.  (Figure  3.8) 

<c)  Screen  #6  :   Modify  a  material 's  name. 

This  program  changes  a  material  name  to  a  new  one. 
(Figure  3.9) 

(4)   Screen  #7  :   Reorder  Reporting  (Submenu2) . 

This  screen  simple  asks  the  user  to  type  <y>  if  he 
wants  to  run  the  program  or  <n>  to  exit  from  subrnenu2, 
Especially  this  program  does  the  following: 

(a)  It  creates  from  INVENTORY  file  a  temporary  file 
(tmpl)  which  includes  all  materials  the  quantity 
of  which  is  under  the  INDEX-ORDER. 

(b)  It  creates  from  tmpl  file  the  ORDER  file  which 
contains  all  materials  needed  reorder . 

(c)  Finally  it  creates  from  ORDER  file  the  tmp2  file 
for  future  purposes  while  at  the  same  time  it 
deletes  the  ORDER  file.   (Figure  3.10) 


* 

* 
* 

* 
* 


-it************************-**-*-*-******* 

* 
* 


REORDER   REPORTING 
(Subprog2) 


The  program  is  ready  to  run  when 
you  en t  er  < y  > . 

Please,  wait  a  few  minutes  ! ! ! 

Shortly,  a  list  of  materials, to  be  * 
reordered  will  appear  on  the  screen  * 

* 

Enter  <y>  to  continue  or  <n>  to  stop-)-!  ! 


Fiqure 


Screen  for  SUBPR0G2 
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(5)   Screen  #8  :   Report  Gererator  (Submenu3) . 

The  screen  includes  a  list  of  operations  with  the 
corresponding  task— codes.   The  user  has  to  type 
numbers  i  to  9  to  select  one  o-F  the  described 
operations  on  the  screen   or  <0>  to  return  to 
mainmenu.   The  user  typing  a  wrong  number  or  symbol 
gets  a  message  on  the  screen   which  gives  him 
instructions  on  what  to  do.   (Figure  3.11). 


********************************************* 

*  REPORT  GENERATOR  * 

*               * 

*  (Subprog3)  * 

*  * 

*  1.  Materials  received  on  a  particular  DATE* 

*  2.  Materials  received  in  a  PERIOD  of  TIME  * 

*  3.  Materials  received  by  a  REGISTRATION  #  * 

*  4.  Materials  given  on  a  specific  DATA  or  * 

*  PERIOD  of  TIME.  * 

*  5.  Units  received  a  specific  material  in  * 

*  PERIOD  of  TIME.  * 

*  6.  Units  received  a  specific  matarial  * 

*  7.  Materials  OWED  to  a  specific  unit  * 

*  S.  Units  to  which  a  material  is  owed  * 

*  9.  Materials  needed  to  repair  a  specific  * 

*  main  material.  * 

*  0.  Return  to  mainmenu  * 
********************************************* 

Select  one  of  the  above  Task— codes 
Your  Selection  — >:  : 


Figure  3.11  :   Screen  for  SUBMENU3. 
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(a)   Screen  #9:   Materials  received  on  a  DATE. 

The  user  enters  the  specific  date  and   on  the 
screen  appears  a  list  of  materials  received  by 
the  Battalion  on  that  DATE.  (Fiqure  3.12) 


********************************************* 

*  MATERIALS  RECEIVED  ON  A  SPECIFIC  DATE    * 

*    * 

*  (Subprg31)  * 

*  * 

*  This  program  creates  a  list  of  materials  * 

*  received  by  the  Battalion  on  a  specific   * 

*  Date.  * 

*  Enter  <y>,  and  then  the  DATE,  and  wait  a  * 

*  few  seconds.   On  the  screen  you  will  see  * 

*  the  list  of  materials  received  that  date  * 

*  * 
********************************************* 

Enter  <y>  to  continue  or  <n>  to  stop  — >:  : 


Figure  3.12  :  Screen  for  Subprogram31 


(b)  Screen  #10  :  Materials  received  in  a 

particular  PERIOD  of  TIME. 

The  user  has  to  enter  the  specific  period  of  time 
and  on  the  screen  will  appear  a  list  of  materials 
received  by  the  Battalion  in  that  period.  (Fiqure 
3.  13) 

(c)  Screen  #11:  Materials  received  by  a 

specific  registration  number 

The  screen  gives  intructions  to  the  user  on  what 
to  do.  (Figure  3.14) 
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**************************  **-s^*********#*-***-)e 

*  MATERIALS  RECEIVED  IN  A  PERIOD  OF  TIME    * 

*   * 

*  (Subprg32)  * 

*  * 

*  The  program  is  ready  to  run  when  you    * 

*  enter  <y>,and  then  the  period  o-f  time.    * 

*  Please,  wait  a  few  seconds  ! ! !  * 

*  A  list  of  materials  received  by  the     * 

*  Battalion  in  that  period  of  time  will     * 

*  appear  on  the  screen.  * 

*  * 
********************************************* 

Enter  <y>  to  continue  or  <n>  to  stop  — >:  : 


Figure  3. 13:   Screen  for  Subprogram32 


******************************************** 

*  MATERIALS  RECEIVED  BY  A  REGISTRAS.  #    * 

*    * 

*  (Subprg33)  * 

*  * 

*  This  program  gives  a  list  of  materials  * 

*  received  by  the  Battalion  by  a  specific  * 

*  registration  number.  * 

*  The  only  thing  to  do  is  to  enter  <y>    * 

*  and  then  the  REGENTERNO ,  and  to  wait  a.   * 

*  few  seconds.  * 

*  On  the  screen  you  will  see  the  * 

*  list.  * 

*  * 
******************************************** 

Enter  <y>  to  continue  or  <n.  to  stop  — >: : 


Figure  3. 14:   Screen  for  Subprogram33 
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<d)  Screen  #12:  List  of  materials  given  on  a 

specific  DATE  or  in  a  PERIOD  of  TIME 

The  user  has  to  follow  the  instructions  given  on 
the  screen.  (Figure  3.15) 


*************************  ******  ************ 

*  MATERIALS  GIVEN  BY  THE  BATTALION     * 

*  ON  A  SPECIFIC  DATE  OR  PERIOD  OF  TIME    * 

*   * 

*  <Subprg34)  * 

*  * 

*  Enter  <y>,  and  then  select  1  for  date  * 

*  or  2  for  Period  of  time.  * 

*  Then  the  program  is  ready  to  run  when  * 

*  you  type  the  DATE  or  PERIOD  of  TIME     * 

*  Wait  a  few  seconds.   On  the  screen     * 

*  you  will  see  the  list.  * 

*  * 
******************************************* 

Enter  <y>  to  continue  or  <n>  to  stop  — >: : 


Figure  3. 15:   Screen  for  Subprogram34 


(e)  Screen  #13:  List  of  units  received  a 

material  in  a  period  of  time 

On  this  screen  there  Are    instructions  to  the  user 
on  what  to  do  in  order  to  make  the  desired  list  of 
units.  (Figure  3.16) 

(f)  Screen  #14:  Units  received  a  material. 

The  screen  gives  directions  to  the  user  on  what  to 
do.  (Fiqure  3.17) 
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******************************************** 

*  LIST  OF  UNITS  RECEIVED  A  MATERIAL  IN    * 

*  A  PERIOD  OF  TIME  * 

*  * 

*  (Subprq35>  * 

*  * 

*  The  program  is  ready  to  run  when  you    * 

*  enter  <y>,  and  then  the  part  number  of   * 

*  the  material  and  the  period  of  time.     * 

*  Please,  wait  a  few  seconds  ! !  i  * 

*  Sortly,  A  list  of  units,  received  the   * 

*  specific  material  in  that  period  will    * 

*  appear  on  the  screen.  * 

*  * 
******************************************** 

Enter  <y>  to  continue  or  <n>  to  stop  — >: : 


Figure  3. 16:   Screen  for  Subprogram35 


*************************************  ****** 

*  UNITS  RECEIVED  A  MATERIAL  * 

*  (Subprg36)  * 

*  * 

*  The  program  is  ready  to  run  when  you   * 

*  enter  <y>,  and  then  the  part  number  of  * 

*  the  material.  * 

*  Please,  wait  a  few  seconds   ! ! !         * 

*  A  list  of  all  units  received  that      * 

*  material  will  appear  on  the  screen.     * 

*  * 
******************************************* 

Enter  <y>  to  continue  or  <n>  to  stop  — >:  : 


Figure  3. 17:   Screen  for  Subprogram36 
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(g)  Screen  #15:  Materials  owed  to  a  unit. 

On  this  screen,  the  user  types  a  <y>,  and  the  name 
of  the  unit.   Shortly  on  the  screen  will  appear 
the  list  of  all  materials  owed  to  that  unit. 
(Fi  aure  3. IS) 


****************************************** 


MATERIALS  OWED  TO  A  UNIT 
<Subprq37) 


* 

* 
* 
* 


Enter  <y>  ,  and  then  the  name  of  the  * 

unit.  * 

Wait  a  few  seconds  ! ! !  * 

On  the  screen  you  will  see  the  list   * 

of  materials  owed  to  that  unit.         * 

* 

****************************************** 
Enter  <y>  to  continue  or  <n>  to  stop  — >: : 


Figure  3. 18:   Screen  for  Subprogram37 


(h)  Screen  #16:  Units  to  which  a  material  owed 

On  this  screen  there  Ar&    instructions  to  the  user 
on  how  to  construct  the  desired  listing. 
(Figure  3. 19) 

(i)  Screen  #17:  List  of  spare-parts  needed  to 

repair  a  material. 

According  to  this  screen  the  user  has  to  type 
<y>  and  the  name  of  the  main  material  in  order 
to  make  the  desired  listing.  (Figure  3.20) 
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■it**************************************** 

*  UNITS  TO  WHICH  A  MATERIAL  IS  OWED    * 

*    * 

*  <Subprg38>  * 

*  * 

*  The  program  is  ready  to  run  when  you  * 

*  enter  <y>  and  the  part  number  of  the  * 

*  material  and  its  name.  * 

*  Please  wait  a  -Few  seconds  !  !  !  * 

*  A  list  of  all  units  to  which  that     * 

*  material  is- owed  will  appear  on  the   * 

*  screen.  * 

*  * 
***************************************** 
Enter  <y>  to  continue  or  <n>  to  stop  — >:  : 


Figure  3. 19:   Screen  for  Subprg38 


****************************************** 

*  SPARE  PARTS  NEEDED  FOR  A  MATERIAL    * 

*     * 

*  (Subprg39)  * 

*  * 

*  The  program  is  ready  to  run  when  you  * 

*  enter  <y>  and  the  name  of  material.    * 

*  Wait  a  few  seconds,  please  ! ! !         * 

*  On  the  screen  you  will  see  the  list   * 

*  of  spare  parts  needed  to  repair   the   * 

*  specific  main  material.  * 

*  * 
****************************************** 
Enter  <y>  to  continue  or  <n>  to  stop  — >:  : 


Figure  3.20:   Screen  for  Subprogram39 
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(6)   Screen  #18  :   Look-ups  (Submenu4) . 

This  screen  describes  the  operations  of  sub— menu4 
The  user  has  to  type  1  or  2  for  the  corresponding 
operations  or  0  to  exit  submenu4.  (Figure  3.21) 


********  *********************  ************* 

*  LOOK — UPS  * 

*                   * 

*  (Submenu4)  * 

*  * 

*  code         Task   Description  * 
* * 

*  * 

*  1..  Decision  to  give  a  material  * 

*  * 

*  2..  Information  status  of  a  material  * 

*  * 

*  0. .  Return  to  mainmenu  * 

*  * 
****************************************** 

Select  one  of  the  above  codes 
Your  Selection  — >:  : 


Figure  3.21  :  Screen  for  SUBMENU4. 


(a)  Screen  #19:  Decision  to  give  a  material 

The  screen  simply  gives  directions  to  the  user  in 
order  to  reach  the  desired  results.  (Figure  3.22) 

(b)  Screen  #20:  Information  status  of  a  material . 

The  user  has  to  follow  the  instructions  of  this 
screen  in  order  to  obtain  all  information  about  a 
specific  material.    (Figure  3.23) 
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****************************************** 

*  DECISION  TO  GIVE  A  MATERIAL       * 

*         * 

*  (Subprg41)  * 

*  * 

*  The  program  is  ready  to  run  when  you  * 

*  enter  <y>,  and  then  the  part  number    * 

*  of  the  material  and  the  requested      * 

*  quantity.  * 

*  You  have  to  wait  only  a  few  seconds.  * 

*  Shortly,  on  the  screen  you  will  see   * 

*  a  message  on  what  exactly  to  do.       * 

*  * 
****************************************** 
Enter  <y>  to  continue  or  <n>  to  stop  — >:: 


Figure  3.22:   Screen  -for  Subprogram41 


****************************************** 

*  INFORMATION  STATUS  OF  A  MATERIAL     * 

*     * 

*  (Subprg42)  * 

*  * 

*  The  program  is  ready  to  run  when  you  * 

*  enter  <y>,  and  then  the  pert  number    * 

*  of  the  material.  * 

*  Please,  wait  a  few  seconds  ! ! !         * 

*  Shortly,  a  list  of  all  information    * 

*  about  the  material  will  appear  on      * 

*  the  screen.  * 

*  * 
****************************************** 
Enter  <y>  to  continue  or  <n>  to  stop  — >: : 


Figure  3.23:   Screen  for  Subprogram42 
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3 .   Design  of  F i les 

The  conceptual  view  of  the  system  is  shown  in  Figure 
3.24. 

According  to  the  conceptual  view  the  following  files 
and  relations  have  been  specified  for  the  system: 

a.   INVENTORY  File 

This  file,  which  is  the  master  file  of  the 
system,  includes  all  the  materials  on  hand  and  has  the 
following  fields. 


FLD 

NAME 

TYPE 

WIDTH 

001 

REBENTERN0 

N 

6 

002 

REGENTDATE 

C 

8 

003 

PARTN0 

C 

13 

004 

MATERNAME 

C 

20 

005 

QUANTITY 

N 

5 

006 

MAX 

N 

5 

007 

MIN 

N 

2 

008 

IND0RDER 

N 

-.-> 

009 

MAINMATER 

C 

15 

0 1 0 

OWED 

N 

011 

WAITED 

N 

4 

012 

DUEDATE 

C 

8 

013 

PLACE 

C 

8 

The  field  OWED  is  referring  to  the  materials  owed 
from  the  Battalion  to  different  units  of  the  Division.   The 
fields  WAITED  and  DUEDATE  are    referring  to  the  materials  owed 
to  Battalion  by  a  hierarchical  organ. 
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OWED 


CUSTOMER 


MATERIAL 


INVENTORY 


STATUS 


Figure  3.24  :  Conceptual   View  of  System. 
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b.   STATUS  File 


This  -file  contains  all  materials  entering  the 
Battalion  in  chronological  order  even  i -f  a  material  has  been 
deleted  -from  the  master  -file.   Status  file  has  the  following 
fields: 


FLD 

NAME 

TYPE 

WIDTH 

00 1 

REGENTERN0 

N 

6 

002 

REGENT DATE 

C 

8 

003 

PARTNQ 

C 

13 

004 

MATERNAME 

p 

20 

005 

QUANTITY 

N 

5 

006 

UNITNAME 

C 

20 

007 

RE6EXN0 

N 

6 

008 

REGEXDATE 

8 

Fields  006-008  identify  the  link  between  the 
material  and  the  supplier  organ  of  the  Battalion. 

c.   OWED  File 

This  file  contains  the  owed  materials  from  the 
Battalion  to  different  units  of  the  Division  and  consists  of 
the  following  fields: 


:  FLD 

NAME 

TYPE 

WIDTH 

:  oo  i 

UNITNAME 

C 

20 

:  002 

PARTN0 

C 

13 

:  003 

MATERNAME 

c 

20 

:  004 

QTITY 

N 

5 

:  005 

DUEDATE 

C 

B 

:  006 

REGEXN0 

N 

6 

:  007 

REGEXDATE 

C 

8 
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d.   MATERIAL  File 


This  -file  includes  the  materials  that  have  been 
given  to  the  units  by  the  Battalion,  and  has  the  -following 
fields: 


1   PI  fl 

NAME 

T  ^  co  F 
1  Tl  C. 

WIDTH 

\     00 1 

UNITNAME 

La 

20 

!  002 

PARTNO 

C 

13 

:  003 

MATERNAME 

c 

20 

:  004 

QTITY 

N 

5 

:  005 

REGEXN0 

N 

6 

:  006 

REGEXDATE 

c 

S 

CUSTOMER  File 


f i  el ds  are , 


This  -file  contains 


Its 


:  FLD 

NAME 

TYPE 

WIDTH 

!  001 

UNITNAME 

C 

20 

,  002 

'_  J.   !   ! 

C 

20 

!  003 

PHQNEN0 

N 

6 

•f.   TAKES  Relation 


f i 1 es  a 


This  relation  connects  the  CUSTOMER  and  MATERIAL 
nd  has  the  -followinq  -fields: 


FLD 


NAME 


TYPE 


WIDTH 


001 

UNITNAME 

C 

20 

002 

PARTN0 

C 

13 

003 

REGEXNO 

N 

6 
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g.   EXIST  Relation 

This  relation  connects  the  MATERIAL  and  INVENTORY 
■files  and  contains  the  -followinq  fields: 


FLD 


NAME 


TYPE    WIDTH 


001  PARTNO  C 

002  REGENTERNO      N 


13 

6 


h.   ARRIVES  Relation 

This  relation  connects  the  INVENTORY  and  STATOB 
file  containing  the  following  fields: 


FLD 


NAME 


TYPE    WIDTH 


00 1  PARTNO  C 

002  REGENTERNO      N 


i.   DESIRES  Relation 

This  relation  connects  the  CUSTOMER  and  OWED 
files  and  has  the  followinq  fields: 


FLD 

001 
002 


NAME 

UNITNAME 
PARTNO 


TYPE    WIDTH 


C 
C 


20 
13 
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j.   PERSONS  File 

This  file  contains  the  names  of  all  the 
individuals  who  are  authorized  to  access  the  Ordnance 
Battalion  Database. 

k.   UNPERSON  File 

In  this  file  the  system  writes  the  name  of 
unauthorized  individuals  trying  to  enter  the  database.  It  has 
three  fields:  name, c, 15,   date, c, 8,  and  time, c, 10. 

1.   STATIC  File 

This  is  a  statistical  file  containing  the  names 
of  all  individuals  accessing  the  database.   It  has  three 
fields:  name, c, 15,   date, c, 8,  and   time,c,10 


4 .   System  Functions 

The  functions  of  the  system  Are    the  fallowing: 

a.   Update  of  Files 

The  system  allows  the  user  to  enter  and  insert, 
delete,  and  modify  files.   The  programs  make  these  changes  in 
all  the  supporting  files.   These  operations  Are    performed 
dai ly . 
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b.  Reorder  Processing 

The  user  enters  the  system  and  makes  a  list  o-f 
all  materials  which  need  to  be  reordered.   This  -function  is 
performed  weekly. 

c.  Report  Generators 

These  -functions  are    for  retrieving  all  the 
necessary  information  from  the  database  on  a  weekly  basis,  or 
upon  request.   Basically,  these  operations  take  place  in 
order  to  produce  information  reports  as  shown  in  Figure  3.1. 

d.  Look-up  Operations 

The  user  can  enter  the  database  and  take  any 
information  about  any  material  as  well  as  ask  for  a  given 
requested  quantity  of  a  material.   This  function  is  performed 
many  times  daily. 


B.   PHYSICAL   DESIGN. 

Physical  design  contains  the  activities  following  the 
logical  design  such  as  production  of  program  software,  and 
working  system.   Programs  must  accept  input  from  users, 
process  data,  produce  reports,  and  store  data  in  the  files. 

The  supporting  programs  of  the  system  are    as  follows: 

1.  Mainprog  with  mainmenu  are    in  APPENDIX  A. 

2.  Subprogl  with  sub menu 1  and  all  the  dependent  in  this 
program  subprograms.   That  is,  subprgll,  submenll,  subprgi2 
submenl2,  subprgl3,  submenl3,  are    in   APPENDIX  B. 

3.  Subprog2  with  submenu2,  are    in   APPENDIX  C. 

4.  Subprog3  with  submenu3  and  all  the  dependent  in  this 
program  subprograms.   That  is,  subprg31 ,  submen31 ,  subprg32 
submen32,  subprg33,  submen33,  subprg34,  submen34,  subprg35, 
subrnen35,  subprg36,  submen36,  subprg37,  submen37,  subprg38, 
submen38,  subprq39,  and  submen39,  are    in  APPENDIX  D. 


c\l  i  u 


5.   Subprog4  with  submenu4  and  the  dependent  subprg41  an 
subpra42,  are    in  APPENDIX  E. 
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IY.   IMPLEMENTATION  PHASE 


Implementation  includes  all  those  activities  that  take 
place  to  convert  from  the  old  system  to  the  new.   The  new 
system  may  be  totally  new,  replacing  an  existing  manual  or 
automated  system,  or  it  may  be  a  major  modi -fi cation  to  an 
existing  system.   In  either  case,  proper  implementation  is 
essential  to  provide  a  reliable  system  to  meet  organization 
requirements. 

In  this  section  we  will  discuss,  for  our  system,  the 
three  aspects  of  implementation,  including  training 
personnel,  conversion  procedures,  and  post— implementation 
review.   However  the  problem  of  training  personnel  and 
conversion  planning  is  beyond  the  purpose  of  this  thesis  and 
so  will  be  only  briefly  mentioned. 


A.   TRAINING 

Even  wel 1— designed  and  technically  elegant  systems 
succeed  or  fail  because  of  the  way  they  are  operated  and 
used.   Those  who  will  be  associated  with  or  affected  by  the 
system  must  know  in  detail  what  their  roles  will  be,  how  they 
may  use  the  system,  and  what  the  system  will  or  will  not  do. 

1 .   Users  and  Systems  Operators  Training 

In  our  case  the  individual  is  both  user  and  operator. 

Users  must  be  instructed  first  how  to  operate  the 
equipment.   Questions  that  seem  trivial,  such  as  how  to  turn 
on  a  terminal,  how  to  insert  a  diskette  into  a  micro- 
computer, or  when  it  is  safe  to  turn  off  equipment  without 
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danger  of  data  loss,  are  significant  problems  to  new  users 
who  fear  computers.   Also  a  user  must  be  able  to  determine 
whether  a  problem  arising  is  caused  by  the  equipment  or 
software  or  by  something  they  have  done  in  using  the  system. 

Data  handling  activities  must  receive  the  most 
attention  in  user  training.   How  to  add  new  data,  how  to 
change  previously  stored  data,  how  to  formulate  inquiries, 
and  how  to  delete  records  of  data  Ars    questions  very 
significant  for  the  user. 

From  time  to  time,  users  will  have  to  prepare  disks, 
load  paper  into  printers  or  change  ribbons  on  printers. 
Users  also  must  be  instructed  in  the  method  of  formatting  and 
testing  disks,  and  copying  files. 

From  the  above  discussion  we  conclude  that  there  are 
two^aspects  to  user  training: 


a.   Familiarization  with  the  processing  system,  that  is, 
the  equipment  used  for  data  entry  or  processing,  and 


b.   Training  in  using  the  application,  that  is,  the 

software  that  accepts  the  data,  processes  it,  and 
produces  the  results. 


2.   Training  Methods 

The  training  of  users  will  be  in-house,  and  will  be 
based  on  manuals  that  will  be  prepared  for  this  purpose  by 
the  analyst  of  the  new  system.   The  training  manuals  will  be 
of  two  approaches.   The  first,  a  tutorial,  will  have  the  user 
work  through  different  activities  step  by  step,   for  example, 
a  check  list.  The  second  approach  is  to  create  a  case  study 
that  includes  all  frequently  encountered  situations  that  the 
system  is  able  to  handle  and  of  which  the  users  should  be 
aware.   The  users  must  use  the  system  to  handle  the  actual 
si  tuations. 
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In  the  second  approach  a  great  deal  of  time  will  be 
spent  by  the  users  in  making  inquiries  to  retrieve 
information  and  records,  editing  previously  entered  data,  and 
running  reports.   Throughout  the  entire  series  of  activities, 
troubleshooting  activities  will  be  emphasized.   Users  will 
become  familiar  with  methods  of  determining  when  the  system 
does  not  perform  as  expected. 

However  there  is  no  substitute  to  experiences. 
Training  manuals  are  acceptable  for  familiarization,  but  the 
experiences  of  actually  using  the  equipment,  making  mistakes, 
or  encountering  unexpected  situations  are    the  best  and  most 
lasting  way  of  learning. 


B.   CONVERSION 

Conversion  is  the  process  of  changing  from  the  old  system 
to  the  new  one.   There  Are    several  methods  for  handling  a 
systems  conversion.   In  our  case  we  will  use  the  method  of 
Parallel  systems'. 

In  this  method  both  systems  run  in  parallel.   That  is, 
users  continue  to  operate  the  old  system  in  the  accustomed 
manner  but  they  also  begin  using  the  new  system.   This  method 
is  the  safest  conversion  approach  since  it  guarantees  that 
should  problems  arise  in  using  the  new  system,  such  as  errors 
in  processing  or  inability  to  handle  certain  types  of 
transactions,  the  unit  can  still  fall  back  to  the  old  system 
without  loss  of  time.   The  greatest  disadvantage  of  the 
parallel  systems  approach  is  that  the  system  costs  are 
hi  gher . 
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1 .   Conversion  PI  an 

The  conversion  plan  provides  a  description  of  all 
activities  that  must  occur  to  implement  the  new  system  and 
affect  its  operation.   It  identifies  the  personnel 
responsible  -for  each  activity  and  includes  a  timetable  of 
when  each  activity  will  occur.   During  the  pre-impl ementati on 
stages,  a  list  of  all  tasks  containing  the  following 
information  should  be  prepared: 

a.   List  of  all  files  that  will  be  used  in  the  new  system. 


List  containing  all  data  required  to  build  the  above 
files. 


List  of  all  documents  needed  during  conversion. 


Identification  of  all  controls  to  be  used  during 
conversion.   Determine  how  team  members  will  know  if 
something  has  not  been  completed  properly. 


e.   Responsibility  for  each  activity. 

First  someone  should  be  appointed  as  conversion 
manager.   This  individual  is  the  point  of  contact  for  outside 
vendors  and  for  analyst  and  user  personnel.   The  conversion 
manager  is  also  responsible  for  checking  all  arrangements, 
reviewing  conversion  plans,  verifying  the  delivery  of 
equipment,  software,  forms  and  whatever  is  needed  for  the 
conversion . 

The  conversion  plan  should  anticipate  possible 
problems  and  ways  to  deal  with  them.  Among  the  most 
frequently  occuring  problems  Are    missing  documents,  errors  in 
data  translation,  missing  data  or  lost  files,  and  situations 
that  were  overlooked  during  systems  development. 


2.  Site  Preparation 

Since  the  system  is  a  microcomputer,  little  site 
preparation  work  is  needed.   However,  the  electrical  lines 
should  be  checked  to  ensure  they  are    -free  of  static  or  power 
-fluctuations.   It  is  a  good  idea  to  install  a  'clean'  line 
that  is  not  shared  by  any  other  equipment.   Such  machines  as 
electric  typewriters  and  office  copiers  can  inter-fere  with 
computer  operations. 

Static  electricity  is  one  of  the  most  common  -foes  of 
computers.   Carpet  on  the  floors  around  computer  rooms  should 
be  avoided  whenever  possible  since  it  can  create  static  that 
in  turn  is  carried  by  operators.   When  they  touch  computer 
equipment,  the  static  charge  can  be  transferred  to  the 
terminal  or  computer  and  cause  the  introduction  o-f  errors  in 
the  data.   If  carpet  is  necessary,  it  should  be  the 
antistatic  type  that  will  not  allow  static  buildup. 

3 .  Data  and  File  Preparation 

Along  with  training,  the  most  time  consuming  aspect 
of  conversion  generally  involves  the  preparation  of  data  and 
systems  master  file.   Since  the  system  is  starting  from 
scratch,  all  necessary  data  will  have  to  be  entered  into  the 
system  by  manual  methods.   Several  thousand  material  records 
will  have  to  be  keyed  into  the  system  frGm  the  paper  charts. 
The  numbers  of  personnel  who  will  be  assigned  this  data  entry 
task  would  be  3  to  4,  and  it  will  probably  take  6  to  7  weeks 
to  enter  all  records,  about  15,000  to  20,000,  into  the 
system.   During  conversion,  it  is  vital  that  precautions  be 
included  so  that  no  records  are    overlooked  or  improperly 
entered. 
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a.  Record  Counts 

The  most  basic  control  is  to  ensure  that  all 
records  are  entered  in  the  system.   The  batch  control  methods 
could  be  used  during  conversion.   Records  will  be  accumulated 
into  groups  of  100,  each  group  comprising  one  batch.   During 
a  time  period  (a  morning  or  a-fternoon)  more  than  one  batch 
will  be  entered  the  system.   This  method  enables  the 
conversion  manager  to  ensure  that  all  records  in  a  batch  sre 
entered  and  that  each  batch  is  processed. 

At  the  end  o-f  the  conversion  process,  the  number 
of  records  in  the  system's  master  -file  must  equal  the  number 
o-f  records  in  the  old  systems. 

b.  Preestabl ished  Totals 

In  addition  to  ensuring  all  records  3.r&    converted 
to  the  new  -file,  the  conversion  manager  must  veri-fy  that  all 
the  field   (each  record  must  have  the  QUANTITY,  MAX,  MIN, 
INORDER,  OWED,  and  WAITED  quant ites)  information  is  val i 
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C.   POST- IMPLEMENTATION  REVIEW 

The  implementation  of  the  system  if  well-planned,  will  go 
smoothly.   When  the  system  has  been  in  use  for  some  time, 
with  virtually  no  problems  have  been  encountered,  analysts 
and  users  should  jointly  review  the  system  after  6  months. 
The  objectives  of  the  this  post-implementation  review  will  be 
to: 


1-   Determine  whether  the  systems  goals  and  objectives  have 
been  achieved. 


2-   Determine  whether  user  service  requirements  have  been 
met,  while  simultaneously  reducing  errors  and  costs. 


Determine  whether  known  or  unexpected  limitations  of 
the  system  need  attention. 


The  review  is  also  important  to  gather  information  for 
the  maintenance  of  the  system.   Since  no  system  is  really 
ever  complete,  it  will  be  maintained  as  changes  Are    required 
because  of  internal  developments,  such  as  new  users  or 
business  activities,  and  external  developments,  such  as  new 
requirements  etc. 

If  done  properly  the  new  system  will  be  wel 1 -received  and 
will  meet  the  performance  objectives  that  led  to  its 
development  in  the  first  place. 


D.   IMPLEMENTATION  OF  DESIGN 
1 .   How  to  Use  the  System 

After  turning  on  the  computer,  the  user  should  insert 
in  diskdrive  A  the  diskette  of  DBASE  II  and  in  the  diskdrive 
B  the  diskette  with  the  project  and  files.   Then  he  should 
type   '  A>DBASE  '  and  then  '  .SET  DEFAULT  TO  B  '  .   So  the 
system  is  ready  to  run. 

The  system  starts  to  run  by  typing  from  the  user 
DO   MAINPROG  '.   In  the  screen  ,  figure  3.4  apears  asking  the 
user  to  enter  the  password.   If  the  typed  password  is  not 
correct  the  system  quits.   After  typing  the  correct  password 
by  the  user  the  system  asks   the  user  to  type  his  last  name 
in  order  to  check  in  the  PERSONS  file  if  he  is  amonq  the 
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individuals  who  are  authorized  to  access  the  database 
information.   It  everything  is  OK  the  MAINMENL)  appears  on  the 
screen  prompting  the  user  to  select  the  desired  SUBMENU  by 
typing  the  corresponding  number  from  1  to  4  or  <0>  to  exit 
the  system. 

2 .   Main  Menu  and  Submenus  of  the  System 
a.   Mainmenu 

This  program  controls  the  whole  operation  of  the 
system,  and  is  called  from  another  program  called  MAINPROG, 
which  is  the  only  program  the  user  calls  by  name,  as  we  saw 
in  the  previous  paragraph. 

The  MAINPROG  asks  the  user  to  enter  the  PASSWORD 
which  is  for  aborting  unauthorised  users,  and  then  it 
proceeds  by  asking  the  user  to  enter  his  name  to  check  if  che 
user  is  authorized  to  access  the  database.   Then  the  MAINPROG 
proceeds  by  displaying  on  the  screen  the  MAINMENU  of  the 
system,  and  pauses  waiting  for  the  user  to  make  his  choice 
which  is  stored  in  the  variable  'MENU'.   Then  a  CASE 
statement  permits  the  program  to  branch  to  the  corresponding 
SUBMENU,  or  exit  the  dBASE.   If  the  user  selects  a  wrong 
choice,  then  the  program  gives  him  an  error  message,  rings 
the  bell,  and  ask  the  user  to  re-enter. 

Each  time  a  user  enters  the  database  the  system 
automatically  writes  his  name,  the  date  and  the  time  in  the 
STATIC  file  for  statistical  purposes  only- 

If  the  PASSWORD  typed  by  the  user  is  correct  and 
if  his  name  is  in  the  PERSONS  file,  he  is  allowed  to 
continue,  otherwise  the  program  automatically  exits  the 
dBASE,  displaying  an  appropriate  message  while  at  the  same 
time  it  writes  in  the  UNPERSON  file  his  name,  the  date  and 
the  time. 
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b.   Submenus 

All  four  SUBMENUS  operate  with  the  same  logic  as 
the  mainmenu.   Each  time,  on  the  screen,  appropriate  messages 
appear  guiding  the  user  on  what  to  do. 

3.   Update  Operations 

These  operations  permit  the  user  to  perform 
insertions,  deletions,  and  modifications  in  the  files  of  the 
database. 

a.   Insertion  Operation 

This  operation  is  performed  by  the  SUBPRG11 
program.   This  program,  actually,  is  for  adding  a  quantity  of 
materials  in  the  INVENTORY  file  and  modifying  the  other 
fields  of  the  record  of  that  file.   It  also  adds  a  new  record 
in  the  INVENTORY  and  STATUS  files  whenever  it  is  necessary. 

The  whole  structure  of  the  program  is  as  follows 

(1)   The  INVENTORY  file  is  opened. 
<2)   The  user  is  prompted  to  enter: 

(a)  The  part  number  of  the  material. 

(b)  The  name  of  the  material. 

(c)  The  received  quantity. 

(d)  The  owed  quantity. 

(e)  The  waited  quantity. 

(f)  The  registration  number,  and 
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(q)   The  date. 

(3)   Then  the  program  searches  the  INVENTORY  file  -far  the 

part  number  of  the  material.   If  it  does  not  exist,  it 
automatically  creates  a  new  record  in  both  INVENTORY 
and  STATUS  files  after  asking  the  user  the  following 
complement  information  about  the  received  material: 

( a )  The  max  i  mum  quan t  i  t y . 

(b)  The  minimum  quantity. 

(c)  The  index  for  reorder. 

(d)  The  main  material,  and 
<e)  The  place  in  the  store. 

Otherwise,  it  proceeds  by  checking  the  material 
name.   Is  the  material  names  are  different  the  program  stops 
and  a  message  appears  on  the  screen,  otherwise  the  program 
proceeds  making  all  the  necessary  changes  in  the  fields  of 
the  INVENTORY  file.   Then  it  displays  the  old  and  the  updated 
records  of  the  specific  material. 

b.   Deletion  Operation 

This  operation  is  performed  by  the  SUBPRG12 
program.   This  program,  actually,  is  for  subtracting  a 
quantity  of  materials  from  the  INVENTORY  file  ,  and  adding  a 
new  record  of  that  material  in  the  MATERIAL  and  OWED  files 
whenever  it  is  necessary. 

The  whole  structure  of  that  program  is  as 
f ol 1 ows: 

<1)   The  INVENTORY  file  is  opened. 
(2)   The  user  is  prompted  to  enter: 

(a)  The  part  number  of  the  given  material. 

(b)  The  material  name. 

(c)  The  given  quantity. 
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<d)  The  owed  quantity. 

(e>  The  due  date. 

<f)  The  registration  number,  and 

<g)  The  date. 

(3)   The  program  searches  the  INVENTORY  -file  -for  the  part 
number  of  the  material.   Then,  after  locating  the 
record  of  the  material,  it  subtracts  the  given 
quantity  from  INVENTORY  file,  it  adds  a  new  record  in 
the  MATERIAL  file  with  the  given  quantity,  and  if 
there  is  an  owed  quantity  it  adds  a  new  record  in  the 
OWED  file. 


c.   Modification  Operation 

This  operation  is  performed  by  the  SUBPRGl^ 
program.   This  program  changes  the  name  of  a  material. 
The  structure  of  the  program  is  as  follows; 

(1)   The  INVENTORY  file  is  opened. 


<2)   The  user  is  prompted  to  enter  if  he  wants  to  proceed 

or    not.   If  the  user  enters  <n>  the  program  returns  to 
SUBMENU 1 ,  otherwise  it  asks  the  user  to  enter  the  old 
name  of  the  material. 


(3)   Then  the  program  searches  the  INVENTORY  file  for  the 
material  name.   If  the  material  does  not  exist  in  the 
file  an  appropriate  message  appears  on  the  screen  and 
the  process  quits,  otherwise  it  asks  the  user  to  enter 
the  new  name  of  the  material.   Then  the  program 
changes  the  old  name  with  the  new  one  in  the  INVENTORY 
file  and  at  the  same  time  it  changes  the  names  in 
STATUS  and  OWED  files. 


(4)   The  whole  operation  continues  under  the  control  of  a 
WHILE  loop,  until  the  user  exists. 
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3 •   Reorder  Operation 

This  operation  is  performed  by  the  S1JBPR0G2  program, 
This  program  prints  a  list  o-f  materials  needing  to  be 
reordered. 

The  whole  operation  o-f  this  program  is  as  -follows: 

a.   The  INVENTORY  file  is  opened. 


b.    I  he  user  is  prompted  to  enter  <y>  if  he  wants  to 
proceed  the  proqram,  or  <n>  otherwise. 


c.   If  the  user  enter  <n>  the  program  returns  to  the 

mainmenu.   In  the  contrary  it  continues  as  fallows: 


(1)    It   creates  from  INVENTORY  file  a  temporary  fii 
called  tmpl,  which  contains  all  materials  the 
quantity  of  which  is  under  the  index-order. 


(2)   Then  it  creates  from  tmpl  file  the  ORDER  file 
which  contains  all  materials  needing  to  be 
reordered.   For  this  operation  the  program 
considers  the  quantity  on  hands  of  the  materia 

«-  y  ■ 


d.   Finally  it  prints  a  list  containing  all  m< 
needing  to  be  reordered. 


4 .   Report  Generator  Operations 

These  programs  permit  the  user  to  print  all  the 
necessary  reports  which  must  be  available  to  any  responsible 
individual  for  decision  making  purposes.   These  program 
reports  Ar&    as  follows: 
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a.   List  of  Materials  Received  on  a  Particular  DATE 

This  -function  is  performed  by  SUBPRG31  program. 
This  program  prints  a  list  of  all  materials  received  by  the 
Ordnance  Battalion  on  a  particular  date. 

The  program  uses  the  -following  structure: 


(1)   The  user  is  prompted  to  enter  <y>  to  proceed  with  the 
-function,  or  <n>  to  return  to  the  SUBMENUS. 


(2)  The  system  asks  the  user  to  enter  the  particular  DATE, 

(3)  The  necessary  heading  of  the  report  is  printed. 

(4)  The  INVENTORY  -file  is  opened,  and  the  program  copies 
to  a  temporary  Tile  called  tmpl  all  records  ai 
materials  with  the  same  registration  date  as  that 
entered  bv  the  user. 


(5)   The  program  prints  the  list  oT  the  materials  in  date 
order  into  the  tmpl  Tile. 


in  case  oT  error  an  appropriate  message  appears  on 
the  screen. 


b.   List  of  Materials  Received  in  a  Period  of  Time 

This  function  is  perTormed  by  SUBPRG32  program. 
This  program  prints  a  list  of  materials  received  by  the 
Ordnance  Battalion  in  a  specific  period  of  time. 

The  structure  oT  this  program  is  exactly  as  the 
previous  one  with  the  only  difference  being  it  uses  a  PERIOD 
of  TIME  instead  of  TIME. 
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c.   Materials  Received  by  a  REGISTRATION  NUMBER 

This  function  is  performed  by  BUBPRB33  program, 
This  program  prints  a  list  of  materials  received  by  the 
Ordnance  Battalion  by  a  specific  Registration  Number. 

The  structure  of  this  program  is  the  same  as  the 
previous  programs  so  its  description  is  not  needed.   The  onl- 
difference  is  that  the  user  enters  the  reqi strati  on  number  a« 


d.   List  of  Materials  Given  on  a  Specific   DATE  or 
PERIOD  of  TIME 

This  function  is  performed  by  SUBPRG34  program. 
This  program  prints  a  list  containing  all  materials  given  by 
ins  *_«ronancs  i_»a«_*_a.i.ion  ■_  o  any  Uni  l  gt  »_ne  Division  ei  l  i  ■  er  on 
a  particular  DATE  or  in  a  specific  PERIOD  of  TIME. 

The  structure  of  the  proaram  is  as  follows: 


(1) 


oar am  or  <n>  to  return  to  the  SUBMENU3 


pi  <_'a_|(  Gill 


The  system  asks  the  user  to  select   option   (number  i 

for  a  specific  E>ATE  ar    number  2  for  a  PERIOD  of  TIME) 

and  then   enter  the  desired  DATE  or  PERIOD  of  TIME 
c  or  r  esp  on d  i  n  g I y . 


(3)   The  MATERIAL  file  is  opened,  and  the  program  copies  to 
a  temporary  file  all  materials  given  to  the  units  of 
the  Division  on  that  DATE  or  PERIOD  of  TIME. 


(4)   Then  it  uses  the  temporary  file  to  print  the  list  wit! 
all  materials  given  by  the  Battalion  to  the  Units  of 
si  on. 


e.   List  of  units  received  a  speci-fic   material  in  a 
PERIOD  of  TIME 

This  function  is  performed  by  SUBPRG35  program. 
This  program  prints  a  list  o-f  units  of  the  Division  to  which 
a  specific  material  was  given  by  the  Battalion  in  a 
particular  period  of  time. 

The  structure  of  the  program  is  as  follows: 

(1)  The  user  is  prompted  to  enter: 

(a)  <y>  if  he  wants  the  program  to  proceed  or  <n> 
otherwi  se. 

(b)  Trie  part  number  o-f  the  material. 

(c)  The  start  and  end  date 

(2)  Then  the  necessary  heading  of  the  report  is  printed. 


(3)   The  MATERIAL  file  is  opened,  and  the  program  copies  to 
a  temporary  file  called  tmpl,  all  units  from  the 
MATERIAL  file  all  units  receiving  the  specific 
material  in  that  particular  period  of  time. 


(4)   It  uses  tmpl  file  to  create  a  sorted  file  called  PI 
according  to  reqistration  date. 


<5)   It  uses  the  PI  file  to  print  the  desired  list  of 
Units. 


(6)   In  each  case  an  appropriate  message  appears  on  the 
screen  guiding  the  user. 


f.   List  of  Units  Received  a  Material 

This  function  is  performed  by  SUBPRG36  program. 
This  program  prints  a  list  of  units  of  the  Division  to  which 
a  specific  material  was  given  by  the  Battalion. 
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The  structure  of  the  program  is  exactly  the  same 
as  trie  previous  program  so  it  is  not  necessary  to  describe 
it.   The  only  difference  is  that  there  is  not  need  for  the 
user  to  enter  the  period  of  time. 

g.   List  of  Materials  Owed  to  a  Unit 

This  function  is  performed  by  the  SUBPRG37 
program.  This  program  prints  a  list  of  materials  owed  by  the 
Battalion  to  a  specific  unit  of  the  Division. 

The  structure  of  the  program  is  about  the  same  as 
the  two  previous  programs  except  that  the  user  enters  the 
name  of  the  specific  unit,  where  upon  the  program  searches 
the  OWED  file  instead  of  MATERIAL  file.   Finally  a  list  of 
materials  owed  to  the  specific  unit  by  the  Battalion  appears 
on  the  screen. 

h.   List  of  Units  to  which  a  Specific   Material  is 

Owed 

This  function  is  performed  by  the  SUBPRG38 
program.  This  program  prints  a  list  of  Units  of  the  Division 
to  which  a  specific  material  is  owed  by  the  Ordnance 
Battal ion. 

The  structure  of  the  proqram  is  as  follows? 


(1)   The  user  is  prompted  to  enter  <y>  to  proceed  or  <n>  to 
return  to  SUBMENU3. 


(2)   Then  the  user  has  to  type  the  part  number  and 
of  the  specific  material. 


(3)   The  OWED  file  is  opened,  and  the  program  copies  to 
tmpl  file  from  the  OWED  file  all  units  to  which  the 
specific  material  is  owed. 


(4)   It  uses  the  tmpl  file  to  print  the  desired  list  of 
Units. 
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i.   List  of  Spare— Parts  Needed  to  Repair  a  Material 

This  -function  is  performed  by  the  SUBPRG39 
program.  This  program  prints  a  list  containing  ail  spare 
parts  needed  to  r^pa.ir    a  main  material. 

The  structure  of  the  proqram  is  as  follows: 


(1)   The  user  is  prompted  to  enter  <y>  to  continue  the 
process  or  <n>  to  return  to  SUBMENUS ,  and  then  the 
name  of  the  main  material. 


(2)   The  INVENTORY  file  is  opened  and  the  program  proceeds 
by  copying  to  tmpi  file  all  spare  parts  needed  to 
repair  the  specific  main  material. 


(3)   Finally  it  uses  the  tmpl  file  to  print  the  desired 
list. 


5 .   Look s-ups  Qperat i ons 

These  operations  are    to  help  the  user  to  obtain 
information  about  the  status  of  a  specific  material  or  for 
decision  making  purposes.   These  oprations  are  the  following: 

a.   Decision  to  Give  a  Material 

This  function  is  performed  by  the  SUBPRG41 
program.  This  program  gives  a  response  to  the  user  on  what  to 
do  in  the  case  of  a  request  of  a  material  by  a  Unit  of  the 
Di  visi  on . 

The  structure  of  the  program  is  as  follows: 


(1)   The  user  is  prompted  to  enter  <y>  to  continue  the 
process  or  <n>  to  return  to  SUBMENU4 ,     and  then  the 
part  number  of  the  material  and  the  requested 
quantity. 
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The  necessary  memory  variables  are    initialized. 


The  INVENTORY  -file  is  opened  and  the  program  proceeds 
to  locate  the  specific  material.   In  case  that  the 
material  does  not  exist  in  the  tile,  an  appropriate 
message  appear  on  the  screen.   Otherwise  it  examines 
the  existing  quantity  and  a  series  of  messages  print 
out,  guiding  the  user  on  what  to  do,  as  for  example 
'you  can  give  the  requested  material '  or  '  You  can 
give  only  that  quantity  of  the  material'  or  '  I'm 
sorry  you  can  not  give  any  quantity  of  that  material ' 
or    Go  to  your  boss  to  decide  what  to  do'. 

In  particular,  the  program  does  the  following: 


<a)   Permits  the  user  to  give  the  requested  quantity 
of  materials  or. 


<b>   Tells  him  that  the  material  does  not  exist  in  the 
Battalion  and  he  must  place  an  order  or. 


<c)    Informs  him  that  the  material  exists  in  the 

Battalion  but  in  a  limited  quantity,  and  he  must 
consult  with  the  Commander  who  will  decide  what 
to  do. 


b.   Information  Status  of  a  Material 

This  function  is  performed  by  the  BUBPRB42 
program.  This  program  gives  the  user  the  following 
information  about  a  specific  material: 

(1)  On  hands  quantity. 

( 2 )  Max  i  mum  quant i  t y 

(3)  Minimum  quantity 

(4)  Waited  quantity 

(5)  Owed  quantity  to  the  Battalion 

(6)  Owed  quantity  to  units 
(7>  Given  quantity  to  units 

1 07 


(S)   Received  quantity  -from  the  battalion 

The  structure  of  the  program  15  as  -follow; 


(1)   The  user  is  prompted  to  enter  <y>  to  continue  or  <n> 

to  return  to  submenu4,  and  then  the  part  number  of  the 
mater i  al . 


(2)   The  Inventory,  Owed,  and  Status  tiles  s.re    opened  and 
the  proqram  proceeds  locating  the  above  information. 


(3)   Finally  it  displays  all  the  above  information 
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V.   CONCLUSIONS  AND  RECOMMENDATIONS 


The  previous  pages  describe  a  material  database  system 
model  ,  suitable  for  implementation  within  the  Hellenic  Armed 
Forces  Formations,  primarily  for  an  Ordnance  Battalion  of  an 
j.n-rani_ry  i/i vi5ion«    inis  system  cduiu  also  u  e  appi  isu  i_o  any 
Ordnance  unit,  at  higher  or    lower  levels  than  a  Battalion 
with  only  slight  modification. 

Section  I  was  dedicated  to  introducing  several  general 
database  concepts.   Section  II  supports  the  analysis  phase, 
section  III  presents  the  design  phase,  and  section  IV 
contains  the  implementation  of  the  system. 

..The  goal  of  the  system  is  to  achieve  greater  processing 
speed,  better  accuracy  and  consistency,  faster  information 
retrieval,  reduced  cost,  security,  and  better  use  of 
personnel.   The  Commander  of  the  Battalion  will  be  able  to 
make  faster  decisions  concerning  the  material,  which  in 
itself  is  of  prime  importance. 

DBASE  II  was  used  as  a  database  management  system,  since 
it  is  readily  available  based  on  the  relational  model, 
thereby  increasing  independency,  and  reduces  redundancy.   In 
addition,  dBASE  II  contains  its  own  programming  language, 
which  is  a  structured,  high  level  language,  generally  very 
efficient  for  manipulating  data  in  the  database,   Computing 
services  will  be  provided  by  a  microcomputer,  IBM  PC  or 
compatible  with  two  floppy  disks  and  a  hard  disk  of  a  size 
dependent  upon  the  volume  of  data  processed. 

The  designed  functions  of  the  system  Arei        Update  files. 
Reorder  processing.  Report  generators,  and  Lock-ups.   The 
functions  most  usually  needed,  have  been  implemented,  but  a 
wide  variety  of  other  functions  could  also  be  created. 
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The  software  life  cycle  has  been  taken  into  account 
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proaram  development  process. 
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modify  to  meet  future  improvement  needs.   A  top-down  design 
approach  has  been  used  in  this  implementation  which  serves 
the  the  goal  of  the  system. 

The  implementation  phase  contains  the  implementation  of 
design  and  briefly  the  training  of  personnel  and  conversion 
planning.   In  this  implementation  only  the  main  categories  of 
materials  have  been  used,  with  a  limited  and   amount  of  data 
concerning  each  of  them.   Future  improvements  could  include 
the  entire  military  materials  listing,  with  more  complete 
information  about  the  records. 

This  thesis  constitutes  a  good  basis  for  future 
computerization  of  the  military  materials  in  the  Hellenic 
Armed  Forces  Formations. 
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APPENDIX   A 


Appendix  A  contains  the  main  program  (MAINPROG)  and  the 
iain  menu  (MAINMENU)  as  -follows: 


1 .   Main  Program  (MAINPROG) 

ERASE 

SET  TALK  OFF 

%       3,1 0  SAY  'Ordnance    Battalion, 

D  a  t  a  b  a  se ' 
©   5 ,  20  SAY  'Security    System 
STORE  DATEO   TO  dt 
STORE  '        '   TO  password 
@  10,26  SAY    Enter   Password:   ' 
SET  console  o-f-f 
ACCEPT   TO  password 
SET  console  on 
SET  EXACT  ON 
IF  password  =  "panos 
SET  EXACT  OFF 

STORE  '  '   TO  LN 

&       12,20  SAY  'Enter  your  Last  Name  — >'   GET  LN 
READ 

use  persons 
LOCATE  FOR  name  =  LN 
IF   EOF 

<§   14,20  SAY  'I'm  sorry  ,  you  are    unauthorized, 

to   use   the  Database ' 
use  unperson 
APPEND  BLANK 

REPLACE   name  WITH   LN ,  date  WITH  dt 
quit 
ELSE 

STORE      :         '   TO  tm 

@  14,28  SAY  'Enter  time  >'   GET  tm  PICTURE  , 

'99:99:99AA' 
READ 

use  static 
APPEND  BLANK 

REPLACE   name  WITH  LN,  date  WITH  dt ,  time  WITH  tm 
STORE   F    TO  FINISHED 
DO  WHILE  .NOT.  FINISHED 
ERASE 

DO  MAINMENU 
STORE  '  '  TO  MENU 

@  24,10  SAY  'Your  selection  — >'  GET  MENU 
READ 
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DO  WHILE  -NOT.  MENU  *  '  12340' 

@  24,30  SAY  '<<===  Invalid  Choice.   Please, 

Re-enter . ' 
STORE  '  '  TO  MENU 

©  24,10  SAY  'Your  Selection  — >'  GET  MENU 
READ 
ENDDO 
@  24,30 
DO  CASE 

CASE  MENU  =  ' 1 ' 

DO  subproql 
CASE  MENU  =  '2' 

DO  subproq2 
CASE  MENU  =  '3' 

DO  5ubproq3 
CASE  MENU  =  '4' 

DO  subproq4 
CASE  MENU  =  'O* 

STORE   T   TO  FINISHED 
ENDCASE 
ENDDO? 

RELEASE  MENU 
ENDIF 
ELSE 
?'  Unauthorized  Person 
qui  t 
ENDIF 
ERASE 

SET  TALK  ON 
RETURN 


2.   Main  Menu  (MAINMENU) 


DATE ( ) 

*  n  m  x  Pi     1 1  i—  in  i_i     t* 

*  * 

Select  one  o-f  the  followinq 


ERASE 

© 

1,60 

SAY  Di 

@ 

1,15 

SAY  ' 

@ 

o  1  =; 

SAY  '■ 

@ 

3,15 

SAY  ' 

4,  15 

SAY  ' 

@ 

SAY  ' 

@ 

7  ■«  ■=; 

/  1  llJ 

SAY  '; 

© 

9,10 

SAY  ' 

e 

11,  10 

SAY  ' 

© 

13,  10 

SAY  ' 

© 

15,  lO 

SAY  ' 

© 

17,10 

SAY  ' 

@ 

19,10 

SAY  ' 

@ 

21  ,  lO 

SAY  ' 

1.  . 

Update  of  files 

**1 

■        XL.  m      i 

Reorder  Processing 

~T 

Report  Generator 

4. 

Looks— lids 

0. 

Exit  the  system 

RETURN 
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APPENDIX 


Appendix  f.  contains  Subprogram!  (SUBPROBi)  and  Submenu  1 
(SUBMENU!)  with  all  the  dependent  subprograms:   SUBPRG11, 
SUBMENU,  SUBPRG12,  SUBMEN12,  SUBPRG13,  and  SUBMEN13. 


1.   Subprogram!  (SUBPR0G1) 


ERASE 

SET  TALK  OFF 

DO  secure 

STORE   F   TO  FINISH! 

DO  WHILE  .NOT.  FINISH1 

sJ  U  5  Li  %J  iTi  G  Pi  Li  «•. 

STORE  '  '  TO  choisei 

£  23,10  SAY   Enter  your  selection  > 

tZ-C\T\ 

DO  WHILE  .NOT.  choisei  $  '0123* 

@  23, 3S  SAY  '<<===  Invalid  Choi ce. Re-enter ' 

STORE  '  '  TO  choisei 

&    23,10  SAY  'Enter  your  selection  >'  GET  choisei 

READ 
ENDDO 

r\n         r-Acp 

i_'  (_j  •__-  n  ^_j  C 

PACC  _|^  — .;    czq"1        =        '    1     ' 

l_-i-i-_Ji_  '_nui5ci       —  1 

DO  subprqll 
CASE   choisei  =  '2' 

DO  subprg!2 
CASE   choisei  =  '3' 

DO  subprgl3 
CASE   choisei  =  '0* 

STORE   T   TO   F INI SHI 

iml/uHuL. 

ENDDO 

RELEASE  F INI SHI 

SET  TALK  ON 

RETURN 
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Submenul  (SUBMENU1) 


ERASE 
@   1,1 0 
@ 
© 


2,  10 
3,10 
4,10 


5 
6 

7 

o 

0  09 , 1 0 

@   11 

@ 

@ 

©  14 
©  15 
@  16, 
©  17,10 
©  18,10 
©  19,10 
©21, 20 
RETURN 


10 
10 
10 


10 
10 

i  ( ~\ 

A.   \_' 

10 
,10 

o 


CAU 
i_rr-f  i 

SAY 
SAY 

ijh  i 

SAY 
SAY 
SAY 
SAY 

C"  /\  \/ 
w*n  t 

SAY 
SAY 
SAY 

uri  i 

SAY 
SAY 
SAY 
SAY 
SAY 

i_jn  T 

SAY 


DATE  < ) 

'  ************************************* ***i 

'  * 

'*  UPDATE   FILE   FUNCTIONS 

'*  


*  code 

'  * 

'  * 

'*   1 .  . 

'  * 

'*   2.  . 

'  * 


(Submenul ) 
Task   Description 

Insert  a  material 's  quantity 

Delete  a  material  's  quantity 

Modify  a  material  '  3  name.. 

Return  to  mainmenuu 


-* 

* 
* 


* 

* 


'  * 

'  *   0 . 
'  * 

'  *****************************-*************-: 

'Select  one  of  the  above  codes' 


Subprogramll  (SUBPRG11) 


ERASE 

SET    TALK    OFF 

i/*_J  Z3  l_l  LJ  1 1 1  CT  II    1     X 

STORE  '  '  TO  continue 
©  22,09  SAY  'Enter  <yj 
conti  nue 
READ 

DO  WHILE  continue  <> 
ERASE 

IF  continue  =  'y' 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
©   5,10  SAY 


o  continue  or  <n>  to  stop'  GET  , 


n 


©  6, 10  SAY 
©  7, 10  SAV 
©   8,10  SAY  'Owed  quantity 


!  Li  pn 

'  TO  mn 

TO  qt 

TO  od 

TO  ren 

TO  red 

Part  number        : '  GET  pn 
PICTURE  '9999-999-9999' 
Material  name 


GET  mn 

E"T   ,-*+-   I 
i    *_j  «_   i 

GET  od  PICTURE 
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&       9,10  SAY  'Reg.  enter  number:'  GET  ren 

PICTURE  '99999' 
©  10,10  SAY  'Reg-  enter  date   : '  SET  red 

PICTURE  '99/99/99' 


READ 

STORE    0 

TO 

Q 

STORE    0 

TO 

QQ 

STORE    0 

TO 

D 

U  1  UI\U.         *_* 

TCI 

NUM 

STORE  val (ren) 

TO  NUM 

STORE  val (qt) 

TO  Q 

STORE  val (od) 

TO  D 

use  inventory 

LOCATE  FOR 

partno  =  pn 

IF  EOF 

STORE  " 

TO 

mx 

STORE  ' 

' 

Tn 

mi  na 

STORE  ' 

' 

1  o 

empc 

'       TO 

mm 

STORE  ' 

TO 

wt 

STORE  - 

TO 

r-.  1 

@  12,10 

SAY 

'*  Record  does  not  e 

.,    -i      r-4- 

*  ' 

@  14,10 

SAY 

'  Max 
PICTURE  '99999' 

* 

SET 

mx  , 

@  15,10 

SAY 

Min 

PICTURE  '99* 

5 

GET 

mi  na 

@  16,10 

SAY 

' Index  Order 
PICTURE  '999' 

: 

GET 

io  , 

&    17,10 

SAY 

'Main  material 

:  ' 

GET 

mm 

•a  18,10 

€2/\\J 
i_jr-i  T 

'Waited 
PICTURE  '9999' 

■ 

GET 

wt  , 

@  19,10 

SAY 

"Place 

:  " 

GET 

READ 

STORE  val(mx)      TO  MAXQ 

STORE  val Cmina)   TO  MINQ 

STORE  val(io)      TO  I0RD 

STORE  vai (wt)      TO  WQ 

APPEND  BLANK 

REPLACE  regenterno  with  NUM,  regentdate  with  rsd 
partno  with  pn,  matername  with  mn ,  max  with  MAI 
quantity  with  Q,  min  with  MINQ,  owed  with  D 

REPLACE  indorder  with  I0RD,  mainmater  with  mm. 


LOCATE  FOR  partno  =  pn 
?'  The  new  Record  is: 


DISPLAY 
ELSE 

11! 


The  old  RecGrd  is 


DISPLAY 
■-> 

--> 

IF   matername  =  mn 

STORE   Q  +  quantity   TO   QQ 
IF   waited  =  Q   .AND.  D  =  0 

REPLACE   quantity  with  QQ ,  waited  with  0  , 

reqenterno  with  NUM,  reqentdate  with,  red 
ELSE 

REPLACE   quantity  with  QQ,  waited  with  D  , 


L-lliJ  J.  ! 


LOCATE  FOR  partno  =  pn 
?'"The  new  update  Record  is 

nrcDi    f\\j 

iy  ±  v-ji     i rt  f 


ELSE 


?'    Matername    has    been    changed.     E>0    -first 


•  •  §-.  f-i  v~  *-»  .  -. 


ENDIF 
END  IF 
ELSE 


**• 


Incorrect   argument 


-*-*  ' 


ENDIF 


STORE  '  '  TO  continue 

&    24,10  SAY  'enter   <y>  to  continue  ar    <n>  to  stop'  , 

GET  continue 
READ 

ENDDO 

SET  TALK  ON 

RETURN 
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4.  Submental  1     (SUBMENU) 
ERASE 

"?  *  #  -s- 

?'*  INSERT  A  MATERIAL  S  QUANTITY                * 

?'*  (Subprgil)                      * 

?  '  *  * 

?**  The  program  is  reaciv  to  run  when  you  enter        * 


?**      ::Y>  and  then  the  part  numt 


:  i  "_j  i    *  u 


?**  the  material  name,  and  the  received  quantity, 

?  -  * 

?**  Please,  wait  a  few  seconds  and  the  old  and 

?'*  updated  record  of  the  material  will  appear 

?**  on  the  screen. 
?  '  * 


5.   Subprogram^  (SUBPRG12) 


i_i\r- iwfEl 

SET  TALK  GFF 
DO  sub men 12 

3  lurvC  i  O  t_  Cj  i  i  •_  a  i!  L_*.  cr 

@  22,10  SAY   enter  <y>  to  run  or  <n>  to  stop  =: 

GET  continue 
READ 

DO  WHILE  continue  <>  'n' 
ERASE 
IF  continue  =  'y* 

STORE   '  '         TO   pn 

STORE  '  '  TO  mn 

STORE  '  TO  qt 

STORE  '  TO  od 

STORE  '          '  TO  dd 

STORE  '        '  TO  ren 

STORE  '          '  TO  red 

STORE  '  '  TO  un 

£   6,10  SAY  'Part  number       : '  GET  pn 

PICTURE  '9999/999/9999' 
@   7,10  SAY  'Material  name    : '  GET  mn 
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@   8,10  SAY   Quantity  :'  GET  qt • , 

PICTURE  '99999' 
%       9,10  SAY  'Owed  ; '  GET  od  , 

PICTURE  '99999' 
@  10,10  SAY  'Due  date  :*  GET  dd  , 

PICTURE  '99/99/99' 
@  11,10  SAY  'Reg.  Exit  No     :"  GET  ren  „ 

PICTURE  '999999' 
@  12,10  SAY  'Reg.  Exit  Date   :'  GET  red  , 

PICTURE  '99/99/99' 
@  13,10  SAY  'Unit  name        :'  GET  un 
READ 

STORE    0   TO   Q 
STORE    0   TO   QQ 
STORE    0   TO   D 
STORE    0   TO   NUM 
STORE   val  (qt)   TO   Q 
STORE   val (od)   TO   D 
STORE   val (ren)  TO   NUM 
use  inventory 
LOCATE  FOR  partno  =  pn 
IF   EOF 

@  15,10  SAY  'Requested  material  does  not  exist  , 
in  the  Battalion' 
ELSE   . 
IF  D  =  0 

STORE   quantity  -  Q   TO   quantity 

use  material 

%    15,10  SAY  'Create  new  record  in  MATERIAL  -file 

APPEND  BLANK 

REPLACE  unit name  with  un,  partno  with  pn 

REPLACE  mater name  with  mn ,  qtity  with  Q 

REPLACE  regexno  with  NUM,  regexdata  with  red 

DISPLAY 
ELSE 

IF  0  =  0 

use  owed 

£  15,10  SAY  'Create  new  record  in  OWED  -file 

APPEND  BLANK 

REPLACE  unitname  with  un,  partno  with  pn, 
matername  with  mn ,  qtity  with  D, 
duedate  with  dd ,  regexno  with  NUM 

REPLACE  regexdate  with  red 
ELSE 

use  inventory 

LOCATE   FOR   partno  =  pn 

STORE   quantity  -  Q   TO   quantity 

use   owed 

@  15, lO  SAY  'Create  new  record  in  OWED  file 

APPEND  BLANK 
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REPLACE  unitname  with  lid,  partno  with  pn 

REPLACE  mater name  with  mn  ,  qtity  with  D 

REPLACE  duedate  with  dd  ,  regexno  with  NUM 

REPLACE  reqexdate  with  red 

use  material 

@  17,10  SAY  'Create  new  record  in  MATERIAL  , 

file' 
APPEND  BLANK 

REPLACE  unitname  with  un,  partno  with  pn 
REPLACE  mater name  with  mn,  qtity  with  Q 
REPLACE  regexno  with  NUM,  reqexdate  with  r&a 
END  IF 
END  IF 
END  IF 
ELSE 

?*     **     Incorrect   argument     ** ' 

STORE  '  '  TO  continue 

@  22,10  SAY  'Enter  <y>  to  continue  or    <n>  to  stop  — >'  » 
SET  continue 

READ 
ENDDO 
ERASE 

SET  TALK  ON 
RETURN 


6.   Submenul2  (SUBMEN12) 


ERASE 

v*  **  * 

?'*  DELETE  A  MATERIAL'S  QUANTITY                * 

7 ' -s-  # 

?**  (Subprgl2)                          * 

?  '  *  * 

?*■»  The  program  is  ready  to  run  when  you  enter        * 

?  '  *  * 

?**  ::yN  °nd  then  the  part  number  ot  material,       * 

'*  * 

'*  the  material  name,  the  given  quantity,  and        * 

'  *  * 

'*  the  unit  name.                                       * 

?  '*  * 

*  Please,  wait  a  -few  seconds  and  the  old  and 


* 


*  updated  records  will  appear  on  the  screen.        * 

*  * 

RETURN 
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7.       Subprograms     (SUBPRB13) 


CDACC 
Li  \r-ii_ii_ 

CCT        T  J 
■_■  i_   i         i  r 

DO    submen!3 

STORE  '  '  TO  change 

@  18,01  SAY  'enter  <y>  to  change  the  material  name  or  <r 

to  stop  — >'   GET  change 
READ 

DO  WHILE  change  <>  'n' 
ERASE 

use  inventory 
1  -f  change  =  '  y  ' 

STORE  '  '   TO   oldname 

<*  10,15  SAY  'Enter  old  name  ==>'   SET  oldname 

READ 

LOCATE   FOR   mater name  =  oldname 

i-f   .NOT.   EOF 

STORE  '  TO  newname 

&    12,15  SAY  'Enter  new  name  — >'   GET  newname 

READ 

REPLACE   matername  WITH  newname 

?'  In   INVENTORY   -file  :' 

\>   *        . •' 

DISPLAY 

7"     In       OWED       -file 


use    owed 

REPLACE   ALL  matername  WITH  newname  , 

FOR  matername  =  oldname 
DISPLAY   ALL   FOR    matername  =  newname 

?'  In   MATERIAL   file  :' 


use  material 

REPLACE   ALL  matername  WITH  newname  , 

FOR  matername  =  oldname 
DISPLAY   ALL   FOR    matername  =  newname 


ELSE 

&    15,15  SAY  'This  record  does  not  exist  in  the  -files' 
END  IF 
ELSE 


?'  **   Incorrect   argument   ** * 
END  IF 
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STORE  '  '  TO  change 

©  22,15  SAY  'enter  <y>  to  continue  or  <n>  to  stop', 

READ 
ENDDO 
ERASE 

BET  TALK  ON 
RETURN 


8.   Submenul3  (SUBMEN13) 


ERASE 

?**  MODIFY  MATERIAL'S  NAME 


?**    This  program  interactively  changes  a  material  name  * 

?**    into  a  new  one.   The  only  thing  to  do  is  to  type  * 

?**    ::V''?  and  then  the  old  and  the  new  name,  and  in  a  * 

? '  *    -few  seconds  the  old  and  the  new  records  o-f  the  * 

7 ' *         material  appears  on  the  screen.  * 

?  '  *  * 

?**    The  modification  is  applied  into  all  used  in  the  * 

?**    database  files  of  INVENTORY,  OWED,  and  MATERIAL.  * 

? '  *  * 
"? ' **************#**********#*#*#************#***** 
RETURN 
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APPENDIX 


Appendix  C  contains  the  subprogramZ 
submenu2  <SUBMEI\1U2>  as  follows: 


(SUBPR0B2)  and  the 


1.   Subprogram2  (SUBPR0G2) 


ERASE 

SET  TALK  OFF 

DO  submenu2 

STORE  '  '  TO  continue 

@  18,07  SAY  'Enter  <y>  to  continue  or  <n 

GET  continue 
READ 


D  r  o  q  r  a  m 


to  stop 


DO  WHILE  continue 

<>  '  n  ' 

ERASE 

IF  continue  = 

y ' 

©  10, 12  SAY 

'The 

@  12,10  SAY 

'Please. 

r  u  n  n  l  n 


Wait  a  -few  minutes  to 
the  results' 
USE  INVENTORY 
COPY  to  tmpl  FIELD  PARTNO ,MATERNAME , QUANTITY , MAX , , 

I NDORDER, OWED, WAITED  FOR  (quantity  <=  indorder) 
SELECT  PRIMARY 


MN 


USE  tmpl 

DO  WHILE 

.NOT.  EOF 

STORE 

4- 

STORE 

• 

STORE 

0 

to 

Q 

STORE 

0 

to 

M 

STORE 

0 

to 

IN 

STORE 

0 

to 

0 

STORE 

o 

to 

W 

STORE 

0 

to 

QW 

STORE 

o 

to 

QWO 

STORE 

0 

to 

OQW 

STORE 

o 

to 

ORDR 

STORE 

PARTNO 

to 

CJ 

STORE 

MATERNAME 

to 

MN 

STORE 

QUANT] 

■  TV 

.  t   ! 

to 

Q 

STORE 

MAX 

to 

M 

STORE 

IN 

IDORDER 

to 

IN 

STORE 

OWED 

4-  ,-, 

0 

STORE 

WAITED 

to 

W 

STORE 

Q 

+  W 

to 

QW 

IF   QW 

> 

0 

STORE 

QW-0 

to 

QWO 

IF   QWO  <  IN 

STORE   M-QWO  to  ORDR 

ENDIF 

ELSE 

STORE   O-QW      to  OOW 

STORE   M+GQW     to  ORDR 

ENDIF 

IF   ORDR  >  O 

SELECT   SECONDARY 

USE   ORDER 

APPEND   BLANK 

REPLACE   PARTNC  WITH  P,  MATERNAME  WITH  MN 

REPLACE   QTITY  WITH   ORDR 

ENDIF 

SELECT   PRIMARY 

SKIP 

ENDDO  WHILE 

STORE   'LIST'   TO  titlel 

STORE   ' '   TO  under  11 

STORE   'of  all  materials  needed  reoeder '  TO  title2 

STORE   ' '  TO  under  12 

SELECT   PRIMARY 

USE   ORDER 

COPY  TO  tmp2  FIELD   PARTNO ,  MATERNAME,  QTITY 

SELECT  SECONDARY 

USE  tmp2 

IF  .NOT.  EOF 

*  Print  the  heading 

?'                                               '+DATE( 
■p *  

?'  '+titlel 

?'  +underll 

?'  '+title2 

?'  +underl2 

STORE   1   TO  seqn 
STORE   0   TO  Incount 

*n  ' 

?'!Seq#!     Partno     !    Material   name     IQtity 

■-, i '  i      i i i 

i      i  ■  i 

STORE   lncount+9   TO   Incount 

DO  WHILE  .NOT.  EOF 

IF   Incount  >  53 

EJECT 

STORE   0   TO   Incount 

ENDIF 

O  '  '  ■  '  ' 

:    I  ■  ■  • 

?' ! '+STR<seqn,3> 
'  +partno 
'  +matername 
'  +STR(qtity,5) 
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STORE   3eqn+l   TO  5Bqn 
STORE   lncount+2   TO   lncount 
SKIP 
ENDDO   WHILE  .NOT.  EOF 

O  ' 

El  cc 
i ui 

*? 
<-> 

?*  None  material  need  reorder' 
*p 

END  IF 

USE   ORDER 

GO  TOP 

DELETE   NEXT   10000 

PACK 


ELSE 


*-##•*■     incorrect   argument      **■** 


END  IF 


■2 


STORE     '      '     to    continue 

<§    22,02    SAY     'Enter    <y>    to    continue    or    <n>    to    stop 
ntrf     ,-„,-^.j- .;  _ . ._ 

READ 
■-> 

ENDDO 

ERASE 

SET  TALK  ON 

RETURN 


2.   Submenu2  (SUBMENU2) 


ERASE 

*****************************************  ********* 
?'        *  * 

?'      *  REORDER  REPORTING  * 


7'      *  

?'     *  <Subproq2> 


The   program   is   ready   to   run   when 
enter  <y>.   Please,  wai 


? '     * 

:  y  I 

*S  '                      *  * 

*  Shortly  a  list  o-f  materials,  to  be  needed  * 
? '     *  * 

*  reordered  will  appear  on  the  screen.  * 
? '  *  * 
? '     ************************************************** 

RETURN 
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APPENDIX   D 


Appendix  D  contains  Subprograms  (SUfc!pR0G3)  and  Submenu3 
(SUBMENUS)  with  all  the  dependent  subprograms:  SUBPRG31 , 
SUBMEN31,  SUBPRG32,  SUBMEN32,  SUBPRG33 ,  SUBMEN33,  SUBPRG34, 
SUBMEN34.  SUBPRG35,  SUBMEN35,  SUBPRG36,  SUBMEN36,  SUBPRG37 , 
SUBMEN37,  SUBPRG3B,  SUBMEN38,  SUBPRG39 ,  SUBMEN39. 


1.   Subprograms  (SUBPRQG3) 


PQAQP 


DD  WHILE   .MOT.  FINIBH3 
"ERASE 
DO  SUBMENUS 
STORE  '  '  TO  SUBMN3 

®    25,25  SAY  'Your  selection  — >'  GET  BUBMN3  PICTURE 
READ 
DO   CASE 

CASE   BUBMN3  =  ' 1 ' 

CASE   SUBMN3  =  ' 2 ' 

CASE   SUBMN3  =  '3' 

i_f  U     ~i  L".  lj  p  r~  Q  •!"•  o 

CASE   SUBMN3  =  ' 4 ' 

nn  et!hrrn"?/L 

•_/  !_j  3uupi     y  %J  *T 

CASE   SUBMN3  =  '  5  "' 

DO    subprgSS 
CASE   BUBMN3  =  "6' 

DO    subprq36 


DO    subprg37 
CASE   BUBMN3  =   S' 
DO    subprgSS 

p/\CP  Ci  iONHvIT      —        '  O  ' 

unuL.  uui_m  iiM-_»      —  / 

DO    subprg39 
CASE   SUBMN3  =  '0' 

STORE   T   TO   FINISH3 
ENDCASE 
ENDDO  WHILE  .NOT.  FINISH3 

SET  TALK  ON 
RETURN 
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2.   Submenu3  (SUBMEN3) 


@ 

i , 

i_  «-~. 

SAY 

@ 

-£-  ^ 

10 

BAY 

@ 

•— ■  * 

10 

SAY 

@ 

4, 

10 

SAY 

@ 

3  = 

1  C's 

□AW 
-_jr-!  i 

;B 

1_!    ; 

10 

i_n— i  i 

:"d 

/     q 

1  f ) 

O  /\  \/ 

@ 

08  = 

10 

SAY 

@ 

09  = 

10 

{3 

i  fi 

X  *-*  = 

1  «r» 

X  *_* 

3n  i 

fi 

1    J. 

J-    A     5 

io 

O  /\  S/ 

© 

i    —.' 

X   -i-    S 

1  r. 

A  »-• 

SAY 

ffi 

■i  -z 
X  -_•  = 

X   >.' 

SAY 

@ 

1  r> 

X   V-- 

d*  /\  V 

ijn  i 

@ 

1    =^ 

X  vJ   . 

10 

c  /\  v 

t_tn  t 

'3 

16, 

1  f"l 

X   <■-' 

SAY 

@ 

1  -y 
j.  .'    = 

1  i"l 

X   »_' 

SAY 

@ 

x  -_j  , 

10 

CAV 

0 

1  *? 

1  f-\ 

X  <J 

C  /\  V 

@ 

20 , 

10 

SAY 

@ 

T>0 

10 

SAY 

DATEO 

'  *********************************** **- 

'*  REPORT  GENERATOR 

'  *  

'*    code  Task       Descripti 


****** 


1 


*       4.  . 


*  6. 

*  7. 


M-*4-  a--  isle 


:sn  a  j 


on    a 
in    a 


ni  ^ 


ecei ved 

"scei  ved 

ecei  ved 
Materials    given    on 
PERIOD    of     TIME. 
Units    received    a    specific 


(J  c*.  t 


cui  a? 

"Jl/   o  i 


DL7D  t  nn 

by  a  REGISTRATION 
a  specific  DATE  or 

material  ir 


i  !'!C 


A.  ,- 


'-J  1 

ecei ved  a  specific  mater: 
Materials  OWED  to  a  specif 
Units  to  which  a 


maieri ai 


XI—         '— II 
X  S        Oln 


speci t 


a   -_«oare  p  ar  71  s  neeuecj  '_o  repair 
main  material. 
Return  to  main  menu. 
-****************************************■! 
Select  one  of  the  above  Task  -  codes 


* 


RETURN 


3.   Subprogram31  (SUBPRG31) 


trp-/\c:tr 

i i\  n  -_j  1 

cct     t/\i    u*     pre 


U-Jiiifcri  !  ■_:■  ± 

STORE  '  '   TO  enter it 
@  20,03  SAY  'Enter  <y> 


art  ar    <n>  to  stop 


t\unt/ 

DO  WHILE  enter it  <>  'n' 
ERASE 

STORE   '  TO   dt 

&    10,12  SAY  'Enter    the    desired    DATE  ===== 

GET  dt   PICTURE  '99/99/99' 
READ 

STORE  'LIST'  TO  titlel 
STORE  '===='  TO  under II 

STORE  'Off  all  materials  r^cei^^d    on    TO  titl 
STORE  ' 
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U^L    inventory 

r*nc--\/     in     +-  T>r*  1       ctci    n     PflDTMn         MATPDMAMP         CIMflMTTTV 


USE  tmpl 

IF  =N!OT.  EOF 


the 
+DATEO 


»adi  nq 


■  '-  i  L  i  Ci. 

•i-under!2 


+t  i  1 1  e  1 

+underl 1 


STORE   1 
STORE   0 


rn  =4- 


eqn 
TO  Incount 


Partno 


Material  nsn)? 


STORE   Incount +9   TO   Incount 
DO   WHILE   .i\!OT.  EOF 

XI  1    I   IUULU   I   L.  t-J  •_* 

E7CPT 
•-J  i •-.-    i 

STORE   0   TO   Incount 
END  IF 

I  I  1 

?' ! '+STR<seqn,3) 

+partno 

+matername 

+STR  <  quant i  ty , 5) 

j-CTp/~-~r^.-,,-.  -t-  „  ~  ,-  „       /    \ 
■   -_j  t  Is   \i     «=L(cri  t  Ltrf    i  I  i_i  *  O  / 


STORE   seqn+1   TO   seqn 
STORE   Incount-*- 2   TO   Incount 
SK I P 
ENDDO  WHILE  .NOT.  EOF 


None  material  enter  this  date  in  the  un; 
perhaps  you  typed  invalid  -form  for  date 


END  IF 

cri  cc 


■  *    incorrect  letter  or  symbol  *■* 


END  IF 
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!2  2-5,07  BAY  'Enter  < !y >  to  continue  or  <n>  to  stop 

DCAH 
r\  i — nu 

CKirinn 

1—1  '(l/L/U 


4.   Submenu31  (SUBMEN31) 


?  '  *""  * 

v  ' -a-  Mf^TFRTAi    c:     K'FrlrTy|::r!     flhl     £     F'f&F<:~ T  f~!  M    aQ     ri/vTcr  x- 

T    "  ^-  Jt 


jubprG-31  )  * 


* 


:"      *  i  i  s  1  3      p  T~  O  Q  r  rf  (Tl     C  r  &  cS  "C  £?  S      a      iI5t      D  :       !T)  3  "C.  £r  r  1  -3.  i  £ 

?'*  received  by  the  Ordnance  Battalion  on  a 

?  *  particular  DATE. 

?'*      Enter  <y>,  and  then  the  DATE,  and  wait  a 

? "' *  -few  seconds.   On  the  screen  you  will  see  the 

?**  list  of  materials  received  that  DATE. 


O     '     it    it  j£    Id.  it  .*-  it  ^-  it  .*.  ^-  -ii.  .1L  it    i  it  it  .V.  Ji-  -kl  .K.  _H    J-  it  it  it  it  it  il   it  it  jt  it  Ji.  _*    it  it  it  .11    iL it    it  it  _£.  .it  .*-  .£  -» it     it  ii 


5.   Subprogram32  (SUBPR632) 


CpACC 


STORE  '  '   TO  enter it 


<*  20,07  SAY  'Enter  <y>  to  start  or  <n>  to  stop  >   GET  enteri 


DO  WHILE  enteri t  <>   n 
ERASE 


T  ET     „  .-.  4-  ,=; »-  -J  4-   = 


TORE   '  '   TO   sdt 
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STORE 


TO 


int  er 


t  B.r~ 


r\s\ t  S- 


r.i  tT  "T      «—>-■•*-      Cj  ' 


TO 


•Jl_  !        crGl-       i      i  u  i  uh.L.  7//fJ  f     t    r 

READ 

STORE  'LIST'  TO  titiel 

STORE  '===='  TO  underll 


l_  J.  '..1  Ci. 


STORE  ' 

TO   under 12 

3 

USE  inventory 

•_i_m      !  i  •->       i_  1 1 1  j__"  a        !      x  u-<_i-/       r  Mr*.   I  !  4LJ  i        i  1I-!  i  LiMihi  !i_  ,        ij:  <_  j  f-i  i  V  till 

l\  L7_  13 CM  i  i i  \  i  -h  t_j  «        i\i *_ji in   i   xy  i— i  i  t ■= 

FOR  (regent  date  >=  sdt  .AND.  regent  date  < 

'-_'  -_'  ! L.  1J! J_»  X 

SORT  on  regentdate  to  PI 
USE  PI 

II      ■  I  H  Lj  I  m  I Lj  I 

*  Print   the    headinq 


edt ) 


7  ' 

o  *3  ,- ,-« -i 


.  i.  ^  4-  i  ^"-> 
^  •_  x  l_  X  Ci. 


+titlel 
+underl i 


ed 


14- 


cTnRF 


mderl 


rO  Incount 


;Seq#!    Part no 


Mater i a I  name 


i  i  s  cr  ■. 


cri  s  i_*  i  i  \ «r 4 


STORE   Inccunt+9   TO   Incount 


D 


VVI  1  X  ! ! 

x  n  ( 
EJECT 
STORE 
END  IF 


WOT .  EOF 


ro   Incount 


! '+STR(seqn,3) 
+partno 
+matername 
+STR ( quanti  ty , 5) 
+STR  <r eg enter no ,6) 
+reqentdate 


STORE   eeqn+i   TO   seqn 
STORE   lncount+2   TO   lncounl 


1 30 


SK I P 

ENDDO  WHILE  .NOT.  EOF 


ELSE 


El  OET 


None  material  enter  this  t-'EKlOD  of  TIME  in 


**  incorrect  letter  or  symbol  **  " 

:ndif 


STORE    '  TO   enter it 

&    23,07  SAY  'Enter  <y>  to  continue  or  <n>  to  stop 

GET  enter it 
READ 
ENDDO 

CDACC 
i_i  \nuC 

SET  TALK  ON 
RETURN 


6.   Submenu32  (SUBMEN32) 


po/-\crcr 

C  i  \n_jC 
\i 

?  '  *********************  *********#*SS****************-Jf***tit^* 
?   '  *  * 

?'*         MATERIALS  RECEVEIVED  IN  A  PERIOD  OF  TIME  * 


■5 


* 


*  (Subprg32>  * 

*  * 

*  The  program  is  ready  to  run  when  you  enter  * 

*  <y>,  and  then  the  PERIOD  o-f  TIME.  * 
'*      Please,  wait  a  -few  seconds   !  !  f  * 

*  A  list  ot  materials  received  by  the  Battalion  * 

*  in  that  PERIOD  of  TIME  will  appear  on  the  screen.  * 

*  The  materials  will  be  sorted  on  Registration  * 
"    number. 

*  * 
?  '  **************************************************** ****** 

on  1  iom 
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7.   Subprogram33  (SUBPRG33) 


ERASE 

SET  TALK  CF 

@  13,07  SAY  "Enter  <v>  to  start  or  <n>  to  stop 
READ 

DO  WHILE  enter it  <>   n ' 
ERASE 
IF   enter it  =  *y* 

«_<  i  ui\l_  !  i_j   r  n 

@  10,12  SAY  'Enter  the  desired  Registration  no  ===>>', 

SET  rn   PICTURE  '999999' 
READ 

STORE  val (rn)   TO  ren 
STORE  'LIST'  TO  titlel 
STORE  '===='  TO  underll 
STORE  'Off  all  materials  received  with'   TO  title2 

"CTnDC"   ' . 

TO   under 12 
USE  STATUS 

COPY  TO  tmpl  FIELD  PARTNO,  MATERNAME ,  QUANTITY,, 

REGEXDATE,REGEiMTERNO  FOR  (reqenterno  =  ren) 
USE  tmpl 


SORT  on  reaenterno  to  PI 


t    iuu 

Uu-'L. 

P  1 
1       X 

IF     . 

Kinr         tznnr 

I-4L-F    1      a            i_l_ll 

-s- 

If         1IIL                     !_  1    1  S 

headi  nq 

+  UAIE  (  ) 


'+titlel 

' +underl 1 


?'         +title2 
??  STR(ren.6) 
72  'Reqenterno' 

:  ■  Uliucr  a  s- 

STORE   1   TO  seqn 
STORE   0   TO  Incount 


i Seq# !    Partno 


STORE   lncount+9   TO   Incoun- 
DO   WHILE   .NOT.  EOF 
IF   Incount  >  53 
EJECT 

STORE   0   TO   Incount 
END  IF 


-L-  »-»     -i  --  4-    .-«.   .— . 

■•in  3  Lsrns.rnE 

+S  i  R  (  quan  t  i  t  y  ,  5 ) 

egsnter 


STORE   seqn+1   TO   ssqn 
STORE   lncount+2   TO   Incount 
SKIP 
ENDDG  WHILE  .NOT.  EOF 


None  material  enter  the  bA"!  T 
this  REGENTERNO ' 


fAj   T|  ihi 


!  jr.* 


l_  I  H  J_/  -A.  ! 


**  i  nccrrsct  I e  tter  or    symbol 


b ! UKfc    "  TU   enter it 

@  23,07  SAY  'Enter  <y>  to  continue  or  <n>  to  si 

SET  enter it 
READ 

crt\ir\r\n 

i—  !*.  n  -_j  i_ 

CCT       T/M     I--"       nKI 

UU     I  I    r!L-l\         i-JIH 

DZTi   iDKI 


8.   Submenu33  (SUBMEN33) 


ERASE 

S  X  X  y  ^  X  K  K  ^^t  «  3  X  K  S  %  X  X  X  3  X  R^t  )fr  X  ii  %  X  K  3  X  HKXXS^iiXJiKUXXKJt  XXX  X  i£  X  X  X  ^  ^  X 


MATERIALS  RECEIVED  BY  A  REGISTRATION  NUMBER 

(Subpra33) 


* 

*  This  program  gives  a  list  of  materials  received  * 

*  by  the  Battalion  by  a  specific  registration  number.  * 

*  The  only  thing  to  do  is  to  enter  <y>,  and  then  * 

*  the  Regertterno,  and  to  wait  a  -few  seconds.  * 

*  On  the  screen  you  will  see  the  that  list.  * 

*  -s 
RETURN 
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9.   Subprogram34  (SUBPRG34) 


CDACC 
i_t  \n-Ji_ 

cct     tai    l-'     n n: tz 

•-JL.    i  i    n !— ! •-.        *_? !      i 

!_'  •_?      S  La  uiTiSrio'T 

STORE    '   TO  given it 

£    22,07    SAY     'Enter    <y>    to    start    or    <ri>    to    stop >'     SET    qivenit 

tj  nr  /v  r-, 

DO    WH.  I LE    q  i  ven  i  t    <  >     '  n  ' 


CTflpP         '  '  TH  ^-i 

v-'    I    ■_#  I  M —  !    ■_*  <_l 

•3  09,10  SAY  'Type  1  for  DATE  or  2  -for  PERIOD  of  TIME  ===>> 

GET  d   PICTURE  '9' 
READ 

IF  dd  =  i 
STORE  '  '  TO  un 

@  12,10  SAY  'Enter    the    desired   name    of     UNIT  

GET    un 

tJC/\T\ 

@  15,10  SAY   Enter     the     desired     DATE   ======—=- 

GET  dt   PICTURE  '99/99/99* 


STORE  '===='  TO  under 11 

STORE  'Off  all  materials  given  to'   TO  title2 

STORE  ' 

COPY  TO  tmpl  FIELD  PARTN0 , MATERNAME , QT II 

FOR  (unitname  =  un  .AND.  reqexdate  =  dt) 
USE  tmpl 
IF  .NOT.  EOF 


int   the    heading 


+  HATC  .'  -. 


+  ti 1 1  el 
+underl 1 


r>  ' 

'+title2 

"~>r7 

un 

~~~>\> 

'  on 

' 

*7*? 

dt 

'y  ' 

+under!2 

STORE   1 

STORE   0   TO  Incount 


isqeKni 


■~j  ■   i i i 

STORE   lncDunt+9   TO   incount 
DO   WHILE   -NOT.  EOF 
IF   Incount  >  53 
EJECT 

STORE   0   TO   Incount 
END  IF 


-i-psrtno 

•  m  a  t  e  r  n  a  m  e 

:  -__*  i  »  \  \  •_(  «_  jl  <_  y  ,  i_j  / 

+STR (reqeKna ,6) 


aTORE   5eqn+l   TO   seqn 
STORE   lnccunt+2   TO   Incount 

C  L--'  T  O 

-__M*-.  A  I 

ENDDO  WHILE  .MOT.  EOF 


ELSE 


None  material  was  given  this  DATt  to  that 

:  ■_*  i  ;  *m_  r-.        •_  i  s  cr        c  v  jj  cru       i/n  ;  ! cthilj       ui^a    !         !  loUft? 

END  IF 

ELSE 

IF    dd    =    2 

STORE     '  "     TO    un 

@    12,10    SAY     'Enter  the  desired  name  of 

GET    un 
pr/vn 

STORE   '  '   TO   s-dt 

STORE  '   TO   edt 

•5        1  -_■  «    j.  *_'       »_j Hi  T  •_ f  i  u tr i  LiSt1  =Lai      L.  *_*  n  i  «_  ■  i    nun 

SET  sdt   PICTURE  '99/99/99 

,^c:-r     --,^4-         oTpx:  lc-cr      :go  /go  /op  » 

1_J  I I     CU  L       S   1  U  I  Ulll —        r      1    /   fig       7     s 

STORE  'LIST'  TO  titlel 

STORE   ====   TO  under! 1 

STORE   Ot-f  all  materials  given  to'   TO  title2 

STORE  ' 

TO  under 12 
USE  material 

COPY  TO  tmpl  FIELD  PARTNO,  MATERNAME ,  QTITY, 


HLbL XNC 


(reqexdate  >=  sdt  .AND, 

I  ICC   4-  ~^.  i 

■_■  ^J  !_     '_  !  !  I  p  I 

SORT  on  regexdate  to  Pi 

o  -; 

1    J. 


ecr 


NOT .     EOF 
Print       the 


H  =  -H-i   rs 


nq 


?  ' 


+title: 


u 


from 


'   -1,4-  4    4-1    cji 

' +underl 1 


•~>"~>     •  +■ 


o 


?'   ' +under!2 
STORE   1   TO  seqn 

c?Tric-nr         f\         th      i  „,-.-,,. -^  j- 

-_0  1  Lji  \ll_     \J  i  *_J   i  i  iLuui  it 


Part no    !  Material  name 

:"   i   —  —  —  (  —         j 

STORE   lncount+9   TO   lncount 
DO   WHILE   .NOT.  EOF 
IF   lncount  >  53 
EJECT 

STORE   0   TO   lncount 
ENDIF 

:'    i  i  i 

O*  "  '  J.CTO  /  ,-„,-,.-.   "T  \ 

?? ' ! '  +partno 
?? ' ! '  +matername 

•— s--J   '     i     •■        +CTR  t  <?f  '■*->.'       =="■ '» 

??*  i  '     +STR  (rege>;no,6) 


+reGexdat: 


■ 


CTflRC  <—  a  r. r-v  -l.  1              TH  ,-  .-.  *-..-. 

■_f    !    Ut\U  =3  CT  L( !    !     •      JL                     I    '-J  3CTl_[l    I 

S TORE  Incount+2  TO   lncount 
SK  I P 


ELSE 


None  material  was  given  to  this  LINl! 
PERIOD  oT  TIME 


that 


ENDIF 
ELSE 


?'Note  correct  numbers  are   1   or 


rKir-.  t  c 
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:ndif 


"uRh.  '  'JO   givenit 
23,07  SAY  'Enter  <y>  to  continue  or  <n>  to  stor 


)ET  qiveni 


n.i_  i  <__m  \H 


10.   Submenu34  (SUBMEN34) 


ERASE 


-*******************  ^*~^*^^^**^****  **********  *******^~-s  •£--£■ 
MATERIALS  GIVEN  ON  A  DATE  OR  IN  A  PERIOD  OF  TIME     * 

<Subprq34>  * 


?""*      The  program  gives  lists  o-f  materials  given  by  the  * 

?'*  Battalion  to   Units  on  a  spec  i  -fie  DATE  or  in  a  * 

?'»  PERIOD  of  TIME.  * 

?'*      Enter  <y>  and  then  select  option  1  for  DATE  or  * 

?**  option  2  for  PERIOD  of  TINE.  * 

?**      Then  the  program  is  ready  to  run  when  you  type  * 

?**  the  specific  DATE  or  PERIOD  of  TIME.  * 

?**      Wait  a  few  seconds.   On  the  screen  you  will  the  * 

*  1  i   e=4-  ■» 

n  1     -L    13  \-   .  S 

****  ****************************************************** 


RETURN 


11.   Subprogram35  (SUBPRG35) 


CDACC 

DO  sub men 35 

STORE  '  '   TO  given it 

@  18,07  SAY  'Enter  <y>  to  start  ar    <n>  to  stop >   GET  c 

READ 

DO  WHILE  qivenit  <>  'n' 
ERASE 
IF   qivenit  =  'y' 

STORE  '  '   TO   pn 

@  07.10  SAY  'Enter  the  Part  Number  of-  the  material : 

GET  pn   PICTURE  '9999-999-9999' 

p  cr  a  p 

CTHDC      '  '     Tm     ^-h4- 

I_J  1  '_■  l\  EL  !  U       =U  U 

STORE   '  '   TO   edt 

&     10,10  SAY   Enter   the   start   DATE.   FROM  ========>: 

GET  sdt     PICTURE  '99/99/99' 

GET  edt    PICTURE  '99/99/99' 

:  \  ! M  !_' 

ST  ORE  ' L  I ST '  TO  t  i  1 1 e 1 

STORE  '===='  TO  under!  1 

STORE  'Oft  UNITS  received  '*  TO  title2 

STORE   From    TO   title3 

STORE  ' '   TO  under  I  3 

i  !  X— '  S—    /n  — ».  -i-  <-~v  •/—  ■*   -t.  1 

*—*_*! fisa  l  cr  X  eft X 

COPY  TO  tmpl  FIELD  PART1M0,  MATERNAME ,  BTITY,  REBEXNO 
REGEXDATE,  UNITNAME, 
FOR  (partno  =  pn  .AND.  iregexdate  >= 
regexdate  <=  edt)) 
USE  tmpl 

SORT  on  regexdate  to  PI 
USE  PI 
IF  .NOT.  EOF 

hieanr-M  •-*■*-■ 

i  jcdui  e  1 t_j 


?'  +titlel 

?'  +underll 

'+title2 


•~>  • 


:'  :'   Pn 


sdt 
'to 
edt 


+under 1 2 

+titie: 
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under 1 


"ORf 


TO  Incount 


Seq#i 


Uni 


name 


!  Qti  ty  !  Reqexno  ;  Rege>tdate 


STORE   lncount+9   10   Incount 

DO   WHILE   .NOT.  EOF 
t  cr 


EJECT 

CTHpCT 

END  IF 


0   TO   Incount 


•  '  -L-C-TCr   i  r~ 


qn  ,  _. ; 
+unitname 

xCTp  f  «i-  i  *■  t  <   =;  -t 
■•Jin.  l.tji.i  ■_  y    c  -_ i  / 

+STR (reqexno, 6) 
+reqexdate 


STuRE   eeqn+1   TO   seqn 

CTfiE'C"    T  f->  i-  .-v .  •  r-x  4-  _i_  -~J    Tn    1  rrrniin't' 

_j    i    Ul  M i  l  iLulu  I  L    '   £.  I   u  i  I  iLulir  I  L 

Op--  T  Cj 
-_•  t  •-.  j.  i 

ENDDQ  WHILE  ,  NOT.  EOF 


ELSE 


None  unit 
durinq  qiven  Period  of  Time 


END  I F 
cr;  get 


**  incorrect  letter  or  symbol  ** 


7 

•J 

7 
7 


STORE  '  '  TO   givenit 

©  23,07  SAY  'Enter  <y>  to  continue  or  <n>  to  atop 

SET  givenit 
READ 

l_!>iiyi_'LJ 

iro/\cz-cr 

i_  1  \  r-l  •_■  s_ 

SET  TALK  ON 
RETURN 


12.   Submenu35  (SUBMEN35) 

ERASE 

? ' *********************************************************•.•: 

?'*     UNITS  RECEIVED  A  MATERIAL  IN  A  PERIOD  OF  TlrsE  * 

? '  *  <Subprg35)  * 

?••'  *  * 

?**      The  program  is  ready  to  run  when  ybu  enter  * 

?'*   <y>,  and  then  the  part  number  of  the  material  and  *' 

?'*   the  PERIOD  of  TINE.  * 

? '  *      Please,  wait  a  tew  secods  !  !  !  *' 

?'*      Sortlv,  a  list  of  units,  received  the  specific  * 

?**   fTiateriai  in  that  period  o-f  time  will  appei*r  on  * ' 

?  '  *   the  screen .  * 

?  '  ********************* *************************************  ' 
RETURN 


13.   Subprogram36  (SUBPRG36) 


ERASE 

T/ 
i  r 

STORE  '  '   TO  given it 

@  18,07  SAY  'Enter  <y>  to  start  or  <n>  to  stop  >'  SET  qivs 

READ 

DO  WH I LE  g  i  vers  i  t  <  >  '  n 

I F   gi  vert  it  =  '  y  " 

STORE  '  '   TO   pn 

@  07,10  SAY  'Enter  the  Part  Number  of  the  material >' 

SET  pn   PICTURE  -'9999-999-9999' 
READ 
STORE  'LIST'  TO  titlel 

CZ"  T  C~i  D  lT         ' —    "        T?~        i«nH-iw-"!     1 

3  I  LJrvC  i  u      LinQcl     i    j. 

CTHpC         •*  HX  x        i   IhjT  TC       «-^.r-n-j    ■  jdh  '     '        TH       i-  -i    4-  1    j-i ""> 

i_j  I  t_» i\ i_  UT  i        UNi   I  3      i     eLcl   vSU  i  O       Li   llri. 

STORE  ' TG   under  12 

uji_»t!i  MiS«_5r"xCTi 
COPY  TO  tmpl  FIELD  PART NO,  MATERNAME ,  0TITY,  REGEXNO, , 
REGEXDATE,  UNITNAME   FOR  (partno  =  pn) 
USE  tmpi 

SORT  or.  regexdate  to  PI 
USE  PI 
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j.i         e  l<iLi  i  a      tiiJr 


i  '-1  A    !    !  (_i 


■~>  ' 


'+titlel 
'  +Linderl  i 


*?  ■' 

<  uiiucl     i 

O    !    «_J1  M 

i 

TO    seqn 

STORE 

0 

!  *_j       liiLuuh 

!Seq# : 


Unit   name 


STORE   lncount+9   TO   Incount 
DO   WHILE   .NOT*  EOF 
IF   Incount  >  53 
EJECT 


'  I  -rSTR(£BQn?3) 
+unitname 
+STR(qtity,5) 
+STR (reqexno , 6) 
+reqexdate 


T7  ' 


STORE   5eqn+i    iO   seqn 


1 1_  t_i  '_■- 1  !  i_ 


i  ncouni 


chinnn     uu  t  i    p         MflT         FT1P 


None  unit  of  the  Division  received  this  mater 


e?.  *_  cr  i      1  csi 


EMHTlT 
liif  II 

ELSE 

?'   **  incorrect  letter  or  symbol  ** ' 

CMn.  t  tr 

STORE  '    TO   givenit 

@  23.07  SAY  'Enter  <y>  to  continue  or  <n>  to  stop 
BET  givenit 

READ 
ENDDO 
ERASE 

SET  TALK  ON 
RETURN 
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14.   Submenu36  (SUBMEN36) 


cr  p  /•.  c?  cr 

?  '  *  * 

?'*       LIST  OF  UNITS  RECEIVED  A  SPECIFIC  MATERIAL.  * 

?'*       * 

?'*  (Subprg36>  * 

?  '  *  * 

?*#      The  program  is  ready  to  run  when  you  enter 

? '  *   :y'::?  and  then  the  part  number  of  the  specific  * 

:"'  *   m  a  xi  e  r  i  a  i  a  **» 

?'*      A  list  o-f  all  unite  received  that  material 

*T>    '  .^  !*.■  -1    1    1  .a  f-l  r*&  ea  2 1*~        nn        4~  h%  E3       C  K~  ^art  ^--, 

-—v 

RPTT'fRM 


15.   Subprogram37  (SUBPRG37) 


ERASE 

SET  TALK  OFF 

r-.rt  ci  ipmpmt7 

STORE  '   'to  owed it 

@  IS. 04  SAY  'Enter  <y>  to  continue  ar    <n>  to  stop  — >'  , 

SET  owed it 
READ 

DO  WHILE  owed it  <>  'n' 
ERASE 
IF   owed it  =   y' 

STORE   '  '  to  unitnam 

v§  10,10  SAY  'Enter  the  unit  name  ==>>'  GET  unitnam 

READ 

USE  owed 

COPY  TO  tmpi  FIELD  PARTNO,  MATERNAME,  QTITY,  DUEDATE,  , 

REGEXNO   FOR  (unit name  =  unitnam) 
USE  tmpi 
IF  .NOT.  EOF 

*?  *  I   T  Q  T 

*-)  ■"  ' 

?"  Off  all  materials  owed  to 

??  unitnam 


:•'  seqs  ' 
'?  '        Part  no 
*? '    Material  name 
'?         Q ' 
'?  '  Duedate 
■?  'Reqexno' 


I   7  OT 


None  material  owed  to  this  unit   or  perhaps  yoi 
?'   typed  an  invalid  form  for  unitname' 
E  N  D 1  \~ 
ELSE 

**  incorrect  letter  or  symbol  ** '" 


STORE  '  'to  owed it 

@  22,10  SAY  'Enter  <y>  to  continue  or  <n>  to  stop  — > 

:3ET  owed  it 
READ 
ENDDO 

COACC 
i — i  \r-ii— «l_ 

SET  TALK  ON 
RETURN 


16.   Submen37  (SUBMEN37) 


ERASE 

? ' *************************************************** 

?'*  * 

?**         MATERIALS  OWED  TO  A  SPECIFIC  UNIT  * 

7  -  -^         * 

?'*                     (Subprg3?>  * 

?**      This  program  creates  a  list  of  materials  * 

?'#   owed  by  the  Ordnance  Battalion  to  a  * 

?'*   specific  UNIT.  * 

?'*      Enter  <y>,  and  then  the  name  of  of  unit.  '  * 

?'*      Please,  wait  a  few  seconds  ! I !  * 

?'*      On  the  screen  you  will  see  the  list  of  * 

? " *   materials  owed  to  that  unit.  * 

?  *  *  * 
?  '  ******* *************************************  ******* 
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17.   Subprogram3B  (SUBPRG3S) 


ERASE 

SET  TALK  OFF 

DO    5Libirien3S 

STORE  '   '  to  cwedit 

@  18,05  SAY  'Enter  <y>  to  continue  or  <n>  to  stop  — >', 

GET  cwedit 
READ 
DO  WHILE  owedit  <>  'n' 

ERASE 

IF   owedit  =  '  y  "' 

■_i  i  ui-.l.  lG   parunUfn 

STORE  '  to  mater  nam 

£  10,10  SAY  'Enter  part  number  of  material  — >', 

f-CT  r->  -  y-4-  .-..  .~  PTrT!!RP   '  QQQQ QQQ_ OOOD  ' 

@  11,10  SAY  'Enter  the  name  of  material  ====>>', 

SET  maternam 
READ 
* OSE  owed 

COPY  TO  tmpl  FIELD  UNITNAME , QTITY , DUEDATE , REGEXNO . 

FOR  (partnc  =  partnum  .AND.  matername  =  maternam) 

I   ICC       +-  ~~  -i 

tc         MfiT         enr 

XI  ,1  -HL>    I      a  l_OI 

:                                                                                                            s-_       x       -_j        I 
*P  '  • 

:     lj  s   i      si  i     uin x  t- a     i_  •_*    wn a  t- n 
7"?    maternam 

'T1  '~  '  ■»  j—    #- .  .  .  .  -  >  r  i  "" 


:  :    -_j  cr  i_|  tt 

7"?  Uni  t   name 

:  :  o: 

'??  '  Duedate 
?? ' Reg ex no ' 

LIST 


ELSE 


None  unit  is  owed  this  material   or    perhaps 
you  tyoed  invalid  part  number  or  name 


END  IF 
ELSE 


**  incorrect  letter  or    symbol  ** ' 
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:c  owed  it 

"Enter  <y>  to  continue  or    <n 


!_  i  H  i_'  !_'  '_J 

CLEAR 

SET  TALK  ON 

RETURN 


18.  Submenu38     (SUBMEN38) 

1RASE 

5*  LIST  GF  UNITS  TD  WHICH  A  MATERIAL  IS  OWED           * 

>  ■  ^.       a 

' ' *  CSubprq38)                            ** 


?**      The  program  is  ready  to  run  when  you  enter  * 

:  *  :-  y  -:  i  3D  G  t  n  e  n  the  psrti  n  u  ffitj  er  o  +  log  spsci  t  ic 

? * *      Please*  wait  a  tew  seconds   ! ! !  * 

?**      A  list  of  all  units  to  which  that  material  is  * 

?**  owed  will  appear  on  the  screen.  * 


* 


";•'  '  *************«**********************#*******************•: 
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19.   Subprogram39  (SUBPRG39) 


EL  1  (  !— !  ,-J  •_ 

CCT       X/M     L-'       flCC 

uJL.     I  F    nt_Cs         t-JI       ! 

DC  sub men 39 
STORE  '  '  to  spareit 

©  IS, 07  SAY  'Enter  <y>  to  continue  or  <n>  to  stop  — >' 
GET  spareit 

t;=  c:  /\  r\ 

H'_nu 

DO  WHILE  spareit  <>   n' 
ERASE 

IF  sparei  t  =  ' y ' 
STORE   '  TO  mn 

@  10,12  SAY 
READ 


COPY  TO  tmpl  FIELD  PARTNO,  NATERNAME ,  QUANTITY,  OWED,, 

WAITED   FOR  (mainmater  =  mn) 
USE  tmpl 
IF  .NOT.  EOF 


0-f  f  all  spare  parts  used  -from 
mn 


Part no 
Material  name 


owea 


LIST 
-^ 

ELSE 

?  •  Nc 

?'  can  be  useo"  tor  repair  0+  this  main  mat! 
?'  Or  you  typed  invalid  main  material  name 
END  IF 
ELSE 

-**  incorrect  letter  or    symbol  ** ' 

cr.\tr'i  t  ir 
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B ! ORt  '  '     TO  spareit 

©  22, 10  SAY  'Enter  <y>  to  continue  or  <n> 

ENDDO 

CLEAR 

SET  TALK  ON 

RETURN 


20.   Submenu39  (SUBMEN39) 


LRASE 

?  '  *  * 

?'*  LIST  OF  SPARE-PARTS  NEEDED  TO  REPAIR  A  MATERIAL 

?**-  * 

?**  CS  u  b  p  r  g  3  9)  * 

? '  *  >^ 

?  *  The  program  is  ready  to  run  as  soon  as  vols  enter  » 

?**  <v>,  and  then  the  name  of  the  material.  * 

?**  Wait  a  few  seconds,  please.  * 

?'■*  On  the  screen  you  will  see  the  list  of  spare— parts,  * 

?  ' -*  needed  to  repair  the  specific  main  material,  s 


RETURN 


APPENDIX 


Appendix  E  contains  the  subprogram4  (SUBPROG4)  and  subrnenu4 
(SLJBMENU4)  and  the  dependent  subprograms:  SUBPRG41 ,  SUBMEN41, 
SUBPRG42,  and  SUBMEN42. 


1.   Subprogram4  (SUBPR0G4) 


ERASE 

SET  TALK  OFF 

STORE   F   TO  FINISH4 

DO 

STORE  '  '  TO  choise4 

@  20,20  SAY  'Your  selection  >'  GET  choise4 

rfclriL/ 

DO  WHILE  .NOT.  choise4  $  '012' 

t§  20,42  SAY  '<<===  Invalid  Choice. Re-enter ' 

STORE  '  '  TO  choisel 

>2  20,20  SAY  "Your  selection  >'  GET  choise4 


f  -- 

tl 

r-ii_* 

0 

*? 

nn 

r~ * 

ASE 

P 

ARC 

~hoi se4  =  ' i 

DO    subprg41 
CASE   choise4  =  '2' 

DO    subprg42 
CASE   choise4  =  '0' 

STORE   T   TO   FINISH4 
ENDCftSE 

ENDDG 

!\  !_!_l_r-!-_Jl_    !   H'llUll'T 

SET  TALK  ON 
RETURN 


>ubmenu4     (SUBMENU4) 


ERASE 

VZ  ■«■    *    -  "-"       •— " 

©       2,10    SAY     '**********************-»*********#***********#-sf 

@       3,10    SAY     '*  * 

@       4-710    SAY     r*  LOOKS — UPS  * 

g       5,  iO    SAY     '*  * 

@       6,10    SAY     '*  (Submenu4)  * 

fh  ■* 

*    code  Task         Descriptia  n       * 


0 

09,10 

C?  f\  V 

'  * 

© 

10,10 

SAY 

'* 

11,10 

SAY 

'  # 

@ 

I  ^i  ,  10 

SAY 

'  * 

^~ 

1  — .     1  q 

SAY 

'■jf 

i--; 

i  /i      1  r-. 

i   -T    .     J.    •-' 

CI'  /\  V 

"-ft- 

Information    status    of     material 


a  15,10  SAY  '*       0- .  Return    to  ma  in  menu                                                      *■ 

St  1   i-       ■i  f\  Cf\\/  '  jt  .is. 

vr  x  i_?  ,  X  *_'  i_j*-»  i             «  '-- 

@  17,10  SAY  r**************#*******#*****#****4f#**********^ 

fH  1    O       On  O/VV  '  Col    af--*-  *-»t-*i— »       *— *  £        4- i-v  ^  3krn,a       i—  .— . .— ;  r~.  <—    * 

»S  X  •_•  =  ji-'-J  -_■»-•  Y            SBlELi.  uncr      L_- i         •_ !  i  cr  dL'Uvd      C'-JLsCr? 

t.'P  n  ipf.i 


3.       Subprogram41     (SUBPRG41) 


CDACC 

~\  f~j       C'l    r  lj  rvi  CT  h  \  n    -i 

STORE  '   '  TO  continue 

©  20,08  SAY   Enter  <y>  to  run  or  <n>  to  stop  ==>>*  GET  continue 

DO  WHILE  continue  <>  'n' 

IF  continue  =  ' y ' 

STORE  '  '  TO  pn 

STORE  '  TO  qt 

©   6,12  SAY  'Enter  part  number    =======  >>  *  GET  pn , 

Picture  '9999-999-9999' 
©   7,12  SAY  'Enter  Requested  Quantity  — >* 

Picture  '99999' 
READ 
©  09,07  SAY  'The  program  is  running.. 

Please  wait  -for  the  results. 
STORE   0         TO   Q 
STORE   0         TO   PQ 
STORE   0         TO   0Q 
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STORE  val  <  qt )   TO   S3 
use  inventory 
LOCATE  FOR  part no  =  pn 
IF  EOF 

@  11,12  SAY  'The  requested  material  does  not  exist  , 
in  Battal i on 
ELSE 

IF  quantity  -  Q  >  min 

@  11,12  SAY  'You  can  give  the  requested  material 
&     13,12  SAY  'Existing   Quantity  = 
??  quantity 
ELSE 

IF  quantity  >  min 

STORE   quantity  -  min   TO  PQ 

@  11,12  SAY  'You  can  qive  the  follawinq  quant i1 


-  •*- 


ELSE 

O  I  -Jnlt—  I  tj  izf.vy. 

STORE  '       '   TO  M 

STORE  '       '•  TO  W 

STORE  '       '   TO  0 

STORE  quantity  TO  QQ 

STORE  mm        TO  M 

STORE  waited    TO  W 

STORE  owed      TO  0 
use  owed 

COPY  TO  tmp  FIELD  QTITY  FOR  (partno  =  pn) 

Li  S  Er   uiup 

DO  WHILE  .NOT.  EOF 

STORE  00.  +  QTITY  TO  OQ 
SKIP 
ENDDO 
@  11,12  SAY   I'm  sorrv  you   can   not   give  any 

QUB.n  ■_  i  c  y 
<§  15,12  SAY  'Go  to  your   BOSS   to  decide   what 

wi  II  do "" 
@  16,12  SAY  'ATTENTION.  You  need  the  following 

information 

??  QQ 

(3  19,12  SAY   MINIMUM   quantity 
??  M 

&    20,12  SAY  'WAITED    quantity 
??  W 

S  21,12  SAY  'OWED  qtity  to   Battalion   = ': 
??  0 

@  22,12  SAY  'Owed  qtity  to  other  units  = "" 
??  OQ 
END  IF 
INDIF 
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Ei  CM 
!_-_■! 


■—-.  F  ■_!  L.I  i ! ! ': 


CTfvin  T  c 


STORE  '  '  TO  continue 

*3  24,12  SAY  "Enter  <y>  to  continue  or    <n>  to  sti 
GET  continue 


L_*  L_    #  \  i 


PKinnn 


:n 

ERASE 

SET    TALK    ON 

RETURN 


4.   Submenu41  (SUBMEN41) 
ERASE 

? '      *  * 

*  DECISION  TO  GIVE  A  MATERIAL.  * 

?'      *  * 

?'      *  (Subprog4i)                       * 

*  # 

*  The   program   is   ready   to   run   when  * 

*  you  enter  <y>,  and  then  the  part  number  of-  * 

*  the  material  and  the  requested  quantity,  * 
? '     *  * 

*  You  have  to  wait  only  a  -few  seconds  II!  » 
? '     *  ■    * 

*  Shortly,  on  the  screen  you  will  see   a  * 

*  message  what  exactly  to  do.  * 
7"  *  * 
7 '  ******************#***^****#***#*#**************-»* 
7 

RETURN 
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5.   Subprogram42  (SUBPRG42) 


ERASE 

c:-  c  ~r   r ; . . 

DO  SUBMEN42 

STORE  '  'TO  continue 

©  20,10  SAY  'Enter  <y>  to  run  or  <n>  to  stop  ==>> 

SET  continue 
READ 
DO  WHILE  continue  <>   n' 

PRASE 

IF  continue  =  '  y  ' 

@   4,12  SAY  'Enter  part  number    === 
Picture  '9999-999-9999' 
READ- 
'S  6,07  SAY  'The  program  is  running.  , 

Please  wait  -for  the  results 
use  inventory 
"LOCATE  FOR  part no  =  pn 
IF  EOF 

(§   8,  OS  SAY  "The  requested  material  does  not  exist 
i n  Sattal i  on ' 
ELSE 


STORE 

0 

Tn 

QQ 

ST0R:E 

o 

TO 

GO 

STORE 

o 

TO 

RQ 

STORE 

■ 

' 

TO 

Q 

CTrifjtr 

' 

' 

TO 

MX 

STORE 

' 

' 

TO 

MN 

STORE 

' 

' 

W 

STORE 

' 

' 

i  Lj 

0 

STORE 

Q< 

■icrtT't  i  *t  V 

TO 

Q 

STORE 

m< 

sx 

-rn 

t    LI 

MX 

STORE 

mi  n 

TO 

MN 

STORE  waited  iO  W 
STORE  owed  TO  0 
use  owed 

COPY  TO  tmpl  FIELD  QTITY  FOR  (partno  =  nn) 
use  tmpl 
DO  WHILE  .NOT.  EOF 

STORE  OQ  +  QTITY  TO  OB 

SKIP 
ENDDO 
use  mat  er i  a I 

COPY  TO  tmp2  FIELD  QTITY  FOR  (partno  =  pn) 
use  tmp2 
DO  WHILE  .NOT.  EOF 

STORE  GQ  +  QTITY  TO  GQ 

SKIP 


tWDDO 


ULih'Y     It)    tnipj.    MELD    QUANilTY    FOR     (partnn    -    p 


t_  f !  i  ' 


DO  WHILE  . NO ! =,  LUK 

STORE   RQ  +  quantity  TO  RQ 
SKIP 

i_  1  -  XJ  *-."_? 

i A  O        1   *"?       DAV  n  t   |  /\  K  f  T  T  T  V  rjv/  i    »-+■  i    rin 

??    Q 

Oi        1  { "1        1  J"3       C:  A  V         "'  MAV  T  ivit  thri  .— *  ■  .  — .  1— .  4-  -«    4-  %  * 

>2       i.  *J»  «  X  -=i-      ■— (f~*  1  I  >HA  j.1  tuil  "_i  ■.  \  t£  \\ !  i_  i   »_  y 

;~m       1    i         I  4~3       C £\V         '  Ni  T  K I  T  M I  I N1  ni  i2**if  i   4*\/ 

^O       MM 

:     :        1  hv 

j—i       i   ~i        i  -"">       C  /\  V         '  iiiATTuH  *-i .  .  — . «— .  4 — t  -$-  -.  j 

«£:       1  i.  -   iii       -j.n  !  yvri  i   1  I u  ujucmil  i   ty 

.H       1  ~        1  *P       CAV  nj.ipn       «f  4   4-*,       4-  ~  0-.4-4--.Tt    ^r-. 

S       j.  -_»  ^   X  jc_      •_■!-*  1  uWCL/      M  *-  i   u  y       T.O  L-dLLai  1GF1 

"  ■■>     n 

:     :        »_* 

©  15,12  SAY  'Owed  qtity  to  other  unit! 

??  OQ 

@  17,12  SAY   Given  qtity  this  ys&r 

V?  GQ 

@  19,12  SAY  'Received  qtity  this  year 

??  RQ 


ELSE 

**       Incorrect   argument 
END  I F 


-J  !  !_n  \l_  1  •_!   Cui  I  ■_  A  I  I  US 

@  22,12  SAY   Enter  <y>  to  continue  or  <n>  to  stop  "==>', 


GET  continue 


ENDDO 

ERASE 

SET  TALK  ON 

RETURN 


6.   Submenu42  (SUBMEN42) 


C"  D  A.  c  p 

i_  P-.  n  •_>  c 

? '       ************************************************** 

?'       *  * 

?'      *  INFORMATION  STATUS  OF  A  MATERIAL          * 

7-      *  .* 

?'     *  (Sub  prog  42)                       * 

?  '          *  * 

*  The  program  is  ready  to  run  when  * 
?'  *  you  enter  <y>?  and  then  the  part  number  of  s 
?'  *  the  material.  * 
?  ■      *  * 

*  Please,  wait  a  few  seconds  ! ! !  * 
? '     *  * 

*  Shortly,  a  list  of  all  the  information  # 

*  about  the  material  will  appear  on  the  screen.  * 
rj  »  —    .*.  «. 

'?  '  ******************************************-******  *-W 
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